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1.0 ABSTRACT 


A series of computer programs are presented with full documentation which 
simulate the transient behavior of a modern 4 cylinder Siemens arrangement 
Stirling engine with burner and air preheater. Cold start, cranking, idling, 
acceleration through 3 gear changes and steady speed operation are simulated. 
Sample results and complete operating instructions are given. A full source 
code listing of all programs are included. 

Reasonable results are obtained but the program has not been validated. 
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2.0 INTRODUCTION 


This report presents the coaplete results of the work done under contract 
DEN 3-226 by Martini Engineering for NASA-Lewis on the DOE-sponsored Auto- 
motive Stirling Engine Program. 

In brief, this work consists of preparation of a series of computer programs 
which simulate the transient operation of a 4 cylinder, double acting Stirling 
engine like the United Stirling P-40 or P-75 engine. Since the dimensions of 
these machines are proprietary, the computer program is set up using the 
General Motors 4L23 engine for which there is complete information. 

The boundaries of the simulation, that is, what is evaluated and what is not, 
is given in Section 3* Section 4 describes the programs in mathematical terms 
and justifies the equations t’uat are used. After each small section of ex- 
planation, a copy of the part of the computer program it explains is given. 

Section 5 gives the full listings for two programs. CNTLA is the pre-program 
to prepare the data file and allow change in input data from the console. 

CNTLB is the main program that calculates and displays engine operation 
during the simulation. 

Section 6 gives the program users manual which is written to be complete by 
itself and contains all the operator needs to apply the programs. 

Section 7 presents a sample solution using the final program . 

Section 8 summarizes what was learned in trying to construct a rapid but 
accurate simulation program for use in studying control schemes. 
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3.0 PROBLEM DEFINITION 


The computer program presented and explained herein is to simulate the opera- 
tion of a Stirling engine powered vehicle. The simulation starts with engine 
and vehicle stopped and at a given ambient temperature. Figure 3*1 shows a 
schematic of one part of the engine giving the names of the engine parts. 

The burner is started at full fuel flow. Air flow is made a specified 
fraction of fuel flow to supply lQJf excess air. The flame heats the heater 
tubes and then heats a plate type counter flow aix preheater. One burner is 
assumed to heat all heater tubes because this is what the United Stirling 
engines have. It does not matter that the 4L23 uses 4 separate burners. 
Transient heat up of both engine and air preheater is simulated. A separate 
preliminary computer program, WARM, was written to separately investigate 
this part of the engine (see Appendix A) . Gas transit times in the burner 
are neglected. Heat transfer rates are computed from standard correlations. 

The heater tubes are regarded as one node but the length of the air preheater 
is divided into as many as 20 nodes. WARM was used to determine the largest 
reasonable time step as far as the burner and air preheater are concerned. 

WARM also was used to determine the smallest number of nodes the air pre- 
heater can be divided into and still retain adequate accuracy. The computation 
method found to be accurate by the use of WARM is Incorporated into the main 
program. 

Longitudinal heat conduction in the air preheater is simulated. Fuel is 
assumed not to be preheated. However, the flow rates of the air and flue 
gas are realistic as is the heat capacity. The thermal heat conductivity 
and the viscosity of the flue gas is assumed to be the same as air. 

The temperature of the gas heater tubes is regulated by proportional control 
for the engine cycle with a set point and a proportional band. At first, 
heat is removed from the heater tubes only by conduction to the other metallic 
parts of the engine. Since this is the chief heat leak when the engine is 
stopped, other heat conduction paths, like through the insulation, are ignored 
since these would be much less. 

After the burner has been on for a specified time period, the engine is 
cranked for a specified time period with a specified torque. At the same 
time a timing valve opens up to add gas to each working space in turn during 
the time that that particular working space is expanding. Under the influence 
of these two forces, the engine accelerates to idling speed that is specified. 
As the idling speed is reached, the engine pressure is adjusted to keep this 
idling speed. 

Next, the clutch is engaged. To simulate this, the ratio of meters traveled 
by the vehicle per engine revolution changes smoothly over a short time from 
zero to a new specified value. Provision is made for the gear ratio to 
change smoothly as two higher vehicle speeds are reached to simulate gear 
changes in a normal automobile. At the same time the required vehicle speed 
is put on a ramp to the cruise speed at the end of a specific acceleration 
time. Gas is added to each cylinder in turn as long as the vehicle speed 
falls short of the required vehicle speed for that time. Control is by 
proportional band operating on the flow resistance between the high pressure 
reservoir and each of the working gas spaces in turn when the vehicle speed 
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is less than the ueh'Hlulod speed. If the vehicle speed is more than the 
scheduled speed, then the flow resistance is between each one of the working 
spaces in turn an^ the low pressure reservoir. 

At the end of the acceleration phase the pressure in the engine is adjusted 
by proportional control to keep the vehicle going as close as possible to the 
specified cruise speed. In order to check the calculation method, the time 
for cruise should be long enough so that the engine and vehicle attain steady 
state operation. Only at this point can calculated power output and effici- 
ency be possibly compared with validated power output and efficiency data 
from the literature. 

The above describes a simple driving cycle. Of course, more complicated 
cycles can be traced by changing the program. Also, more complicated control 
schemes than simple proportional control can be incorporated. 

This section lias described the problem in qualitative- terms to describe in a 
non-technical way what is being attempted to be calculated. Now Section 4 
will present the equations used in the solution and justify them. 
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4.0 MATHEMATICAL METHOD OP SOLUTION 


This section presents the equations used in the analysis and justifies them. 

During the development of this program the burner, heater tubes and air pre- 
heater were evaluated separately to deteraine how many nodes there need be 
in the air preheater and what tine step is needed to adequately simulate 
this part of the machine. (See Appendix A.) Once these values were deter- 
mined, the computational part of the program was incorporated into the main 
program. The burner and air preheater will be discussed in its proper order 
in the main program. 

The main program has been divided into two parts because of memory limita- 
tion of the Altos computer used by Martini Engineering to write the program . 
The first part, CNTLA, allows any input parameter to be changed and then 
intermediate results are calculated. The parameters needed far the main 
calculation are filed. Then the main program, CNTLB, is brought in. The 
intermediate results are read in and the simulation proceeds. 

Directions for use of the program and how to change input conditions are given 
in Section 6. 


4.1 CNTLA 


The flow diagram is given in Figure 4.1. The base case is recorded in data 
statements. Any input value can be changed by keying in the input number, 
a space and then a new value with a decimal point. n ee Section 6 for additional 
directions. The new input value is read in from the console as QQ and then is 
given the proper identity. 

The input numbers were assigned as the program grew. Therefore, Section 6 
gives the identity of the input nianbers and what the base case values are. 

One table gives than in numerical order . The other gives them organized 
by operating condition and dimensions for the different parts of the machine. 

For the software available to the Altos computer for higii speed computation, 
only real numbers in fixed point format (no integers) can be read out of the 
file F0RT10.DAT. 

The complete listing of CNTLA. FOR is given in Section 5« 


4.2 CNTLB 

(JJTLB does all the computations. Figure 4.2 gives the overall flow chart 
for this program. The input data are read in ftrom the file. The output 
conditions are set. Values are initialized tliat could not be conveniently 
done in CNTLA. Then if the graphic option is selected, the borders and the 
schedule of temperature pressures, engine speeds and vehicle speeds are 
displayed. 

Next the engine and vehicle control subprogram is put all in one place so 
far as possible so that changes can be made more easily. This program 
increments the time and keeps track of the driving cycle schedule. It calls 
in the other elements of the computatj onal part of the program as needed. 
These computational parts need not be subroutines since the return point is 
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always the same . At first only the burner and heat conduction subprogram is 
used. Then when the engine starts rotating, the engine torque and internal 
heat transfer subprogram is also used. 

If the total time set for the solution is not exceeded, the program repeats 
starting with the engine and vehicle control. If time is complete, the program 
stops and a brief summary is printed out. The full listings of both CtfTLB 
and CNTLA axe given in Section 5. this section CNTL>i is explained fully. 

The full program is divided into small sections according to the flow chart 
of Figure 4.2. For clarity, each small section of explanation is followed 
by the part of the program it explains. 


4.2.1 Read Transfer File (Lines 1 to 67 ) 

Besides comments about purpose of program and dimension and type and data 
statements, the transfer file FORT 10 .DAT is read f*om the disc. This read 
statement must be exactly parallel to the write statement in CNTLA. symbols 
are defined in CNTLA (see page 73). 
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C ******+*****PR0GRAM CNTLB. FOR*******;**********!*:*:*****:**:**.* 


C WRITTEN BV MARTINI ENGINEERING UNDER CONTRACT NUMBER 
C DEN3-226 FOR NASA-LEWIS UNDER THE DOE ADVANCED AUTOMOTIVE 
C PROPULSION PROGRAM. CNTLB READS IN THE INPUT DATA FILE 
C GENERATED IN CNTLA AND CALCULATES AND DISPLAVS RESULTS 
C CNTLB CALCULATES THE TRANSIENT PERFORMANCE OF A 4 CVLINDER 
C DOUBLE ACTING STIRLING ENGINE WITH TUBULAR HEAT EXCHANGERS 


C AND POROUS REGENERATOR CONNECTED TO A VEHICLE THROUGH A GEAR BOX 
C THE RESIDENT DRIVING CYCLE CONSISTS OF HEATUP, CRANKING, IDLE, 

C ACCELERATION FROM 1ER0 TO CRUSE SPEED AND HOLD THAT SPEED. 

C SECOND AND THIRD GEAR CHANGES ARE SPECIFIED BASED UPON VEHICLE 
C SPEED. GEAR CHANGE IS LINEAR WITH A SPECIFIED TIME. 

C CNTLA USES AS A BASE CASE THE DIMENSIONS OF THE 4L23 ENGINE. 

C CNTLB ADJUSTS THE TIME STEP SO THAT THE ANGLE INCREMENT IS 
C BETWEEN 7 AND 30 DEGREES. THE PROGRAM HRS NO LIMIT TO FLOW 
C ACROSS GAS NODES OR CHANGE IN GAS INVENTORY. CONTROL IS BY 
C CHANGE IN GAS INVENTORY. 

C ***** START OF PROGRAM ***** 


1 


4 


DIMENSION XT<4>, IPV<2, 4>, JPV<2, 4), 

P2 v 4 > , PS <4, S>, P4<4>, M<4>, FP<4>, TQ<4>, VHFK2, 
VT <2, 4>, XX<4>, 


4>, VC A v 2, 4>, 


Pl<4>, CVM ( 8, 4 > , TGAC2, 8, 4>, 

OH I 4 "> , T2A(4>, TIN<10>, EX<8>, T0U<1©>, TM<6, 4>, EY<8>, KME<8>, 
OM v S > , TMA'.'B, 4>, 


6 CM •' 5 > 

DIMENSION TMICS, 4>, W<2, 8, 4>, CVG<8, 4> 

PEAL LCP, LH. LR, MSH, MW, KK, KR, LC, M, ME, KAR, MG I 
PEAL LHH, LHV, MWFG, LAPH, MIR. MI F:l, LHM, MIV, LRM, M2, ME 
PEAL NTRM. NTC, NS, NR, NTH, NTHM, IGi, NO, NARH, KAPH, KM, KMX, KME 
C DATA CONSTANTS 


DATA P 14, PI . P 1 2- PAD, P/0 7854. 2. 14159, 1 570S0, 0. 017452, 
DATA J. ORA. CPFG/5, 1 02, 1 20/ 

C +■+•**+ READ TRANSFER FILE FROM DISK 


214/ 


O 

c*. 


35: 
36: 
37: 
38: 
39: 
' 3 : 
41 : 
42: 
43: 
44: 
45: 
46: 
47* 
48: 
49: 
50: 
51: 
52: 
53: 
54: 


READ <10, 8034) THUG, TPB, TWI, FWI. 0M1 
READ <10,8004>T1, DT.ME, ROEl.KflPH 
READ <10, 8004) NT HM, DIHM, FFF, THU, LHM 
READ < 10. 8004 >TCR, TID, TAC, TOTT, SPM 
READ <10, 8004) RC, LCR, DCY, DDR, DIH 
READ <10, 8004) WTHM, NTH, VHDX, NR, DR 
READ <10, 8004 ) LR, FF, NS, MSH, THW 
READ <10, 8004) VCDX, FCA, DIC, LC, NTC 
READ <10, 8004 > MI V, NTRM, DI RM, AFR, LRM 
READ < 1 0, 8004 ) DOH, LHH, TMAPH, LAPH, WAPH 
READ <10, 8004) TAPH, NAPH, PRL, PRH, WTRM 
READ <10, 8004) TST, MIR, RAF, NO, LHV 
READ < 1 0, 8004 ) CMAPH, AFAPH, RA1, CZ, DEO 
READ <10, S004)UXY,DT2, CY, UXX, CYY 
READ <10, 8004) FUEL, AMF, AH, CMH,QEX 
READ <10, 8004 ) KA ^ TIM, VHD, VRD, CMX 
READ <10, 8004 ) VCD, VCDA.VTD, XA, XB 
READ < 1 0,8004) AC Y.BCY, PI 32, RC2.CCY 
READ <10. 8004) EAR AD, EADEG, DIST, OMEG. GCT 

READ <10, 8004) VHA< 1 , 1 > , VHA< 1 , 2) , VHA< 1,3), VHA< 1, 4) , V'CA< 1,1) 


55: 

56: 

57: 

58: 

59: 

60: 

61: 

62: 

63: 

64: 

65: 

66 : 

67: 8006 


READ < 1 0, 8004) VCA< 1 . 2) , VCA< 1 , 3) , VCA< 1 , 4) , VT < 1 , 1 ) , VT< 1 , 2) 

READ <10, 8004) VT < 1, 3) , VT< l» 4) , CP, CV, MW 

READ <10, 8004)RX,KK,GA,KR. XC 

READ <10»S004)TQV, IQ1 , VHM, VRM, RGE2 

READ <10, 8004 ) RGE3, VSP2, VSP3 ■ THH, TRH 

READ <10, 8004 )RWT, TCY, THC, G, HCL 

READ <10, 8004) KM, KMX. THCH.Q1.Q2 

READ <10, 8004 )Q3, EIN, KME< 1) , KME<2) , KME<3) 

READ <10, 8004)KME<4) , KME<5), KME<6> , CM< 1) , CM<2) 

READ < 1 0, 8004 ) CM < 3) , CM < 4) , CM < 5) , PBI S, PBVS 
READ <10, B004)TREP 
WRITE <5, 8006) 

FORMAT <’ FILE READ’ ) 


^•2.2 Initialize Values (Lines 68-129) 


Although most initial values are in the transfer file, it is more convenient 
t ° some values in GNTLB . Also since integers cannot be read out 

of the transfer file due to limitations in the software available, integer 
values, like N and J, must be made at this point. 


68: o**** INITIALIZE VALUES 

69: C ORGANIZE TIMES FOR OPERATING CYCLE 

70: TT*0. 

71 * TI 1=THU+TCR 

72* TI2=TI 1-t-TID 

73: TI3-TI2+TAC 

74: C BURNER INITIALIZATION 

75: N*NO 

7£: N02=N/2 
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77: 


DO 200 1*1, N 

7S: 


TOU «; I ) =1 1 

79: 


TIN( I > =T1 

80: 


EYU>=T1 

81 : 

200 

EX < I ) =T1 

S2: 


TINCN+l )=T1 

83: 


TA*T1 

84: 


TD-THMG-TWI 

85: 


FLAME=T1 

SE: 


TOU <N+1 ) =T1 

87: 


CFL=1000. 

88'- 


CFH=0. 

89: 


CFF=0 

90: 

C 

INITIALIZE CUMULATIVE 

91 : 


DO 198 1=1,4 

92: 


TM( 1, I ) =T1 

93: 


TM(2, I ) =T1 

94: 


TMC3, I ) =T1 

95: 


TM(4» I ) =T1 

3E>: 


TM(5, I )=(TWI+T1 ) / 

97: 


TM(G, I)*TWI 

98: 


M( I ) =0. 0 

99: 

198 

GHI<I>=0. 


100 

101 

102 

103 

104 

105 
106 1 
107: 


HEAT INPUT AND METAL TEMPS 


SET PRINTOUT OPTION 
J*Q2 

INITIALIZE VEHICLE INERTIA 
VIN=0. 0 

INITIALIZE ENGINE AND VEHICLE SPEED 
OMEG=0. 0 
SPV1=0. 0 
SPVD=0. 0 


108s 
109: 
110 : 
111 : 
112 : 
113: 
114: 
115: 
11E: 
117: 
1 IS: 
119: 
120 : 
121 ■ 
122 : 
123: 
124: 
125: 
12E: 
127: 
12S: 
129: 


C INITIALIZE WORKING TIME STEP 
DDT*=DT 

C INITIALIZE TORQUES 
TQS=0. 0 
TQV=0. 0 
TNET=0. 0 

C INITIALIZE ENGINE ANGLES 
EARAD=0. 0 
REV=0. 0 
NER=0 
NGC=- 1 
MI R1 ~0. 

RGE=0. 

C INITIALIZE ENGINE PRESSURE 
DO 950 1=1,4 

950 P1U)=PRL 

C INITIALIZE FLAG TO CALCULATE CONDITIONS AT CRANKING 
IG2=0 

C INITIALIZE OUTPUT FLAGS 
POF=0. 0 
GDF=0. 0 
GDI =TOTT / 1024. 


ll 



4.2.3 Draw Graphic Frames (Lines 130-212) 


The ATM -3 terminal with the Retrographics package can have two output over- 
layed on the screen at the same time, a graphic output and an alphanumeric 
output. The graphic output, if it is used, cannot easily be turned off. The 
alphanumeric output to the screen can be turned off so just the graphic dis- 
play is visible. It is much easier to understand what is going on with the 
graphic display. In the case where the graphic display is not used, the 
output will be stored in a file which may be read back and possibly plotted 
off line. 

The contract requires that the main program, CNTLB, should run without manual 
intervention during program execution. Therefore, the decisions on how the 
results of CNTLB are read out are changable in CNTLA and are fed to CNTLB in 
the transfer file. 


The flag Q1 must be 1.0 if graphic output is to be used. At this point the 
outline of the graphic display and the schedule of how the driving cycle 
should go are displayed on the screen. Figure 4.3 shows how the screen is 
divided up. The retrographics modification to the AEM-3A terminal, is capable 
of displaying 250 points vertically and 512 points horizontally. However, the 
package is compatible with Tektronics Plot 10 software which has 780 points 
vertically and 1024 points horizontally. These latter numbers are used to 
specify location. The subroutine VECTOR draws a line on the screen (see Appendix C) . 


The arrangement evolved as experience was gained with the solution. Space 
for the four working space pressure-volume (PV) diagrams was particularly 
useful in observing what is going on with the solution. 


130s 
131 : 
11 :: 
133: 
134: 
135 s 
136* 
137: 
138: 
139: 
140: 
141 : 
142: 
143: 
144* 
145: 
146: 
147: 
148* 
149: 
150: 
151 : 
152: 
153: 
154: 


C******* DRAW GRAPHIC FRAME IF OPTION IS ON 
C GRAPHIC FRAME 

IF(Oi-i. 00)158, 157, 158 
C DRAW OUTLINE 
157 CALL CLEAR 

11=0 
J1=0 
12=1023 
J2=0 

CALL VECTOR < II, Jl, 12, J2) 

11=1023 

Jl=779 

CALL VECT0RU2, J2, II, Jl) 

12=0 

J2=779 

CALL VECTOR Cl 1, Jl, 12, J2) 

11=0 

J1=0 

CALL VECTOR C 12, J2» I 1 , Jl > 

11=700 

J1=0 

12=700 

J2=779 

CALL VECT0RCI1, Jl, 12, J2> 

C DIVIDE INTO 4 LAYERS LEFT SIDE 


w 


155* 
156* 
157* 
158* 
159* 
160* 
161* 
162* 
163* 
164* 
165* 
166* 
167* 
168 * 
169* 
170* 
171* 
172* 
173* 
174* 
175* 
176* 
177* 
178* 
179* 
180* 
181 * 
182* 
183* 
184* 
185* 
186* 
187: 
IBS: 
xB9* 
190* 
191 : 
192* 
193* 
194* 
195* 
196* 
197* 
198* 
199* 
200 * 
201 * 
202 * 
203* 
204* 
205* 
206* 
207* 
208* 
209: 
210 * 
21 1 * 
212 * 


11-0 
J 1-629 
12-700 
J2-629 

CALL VECTORdl, Jl, I2» J2> 

J 1-479 
J2-479 

CALL VECTORdl, Jl, 12, J2> 

C DIVIDE INTO FOUR LAYERS, RIGHT SIDE 

11- 700 
Jl-190 

12- 1023 
J2-190 

CALL VECTORdl, Jl, 12. J2> 

J 1-380 
J2=380 

CALL VECTORdl, Jl, 12, J2> 

J 1=570 
J2-570 

CALL VECTORdl, Jl, 12, J2) 

C DRAW SCHEDULED VEHICLE SPEED 
11=0 
J 1=632 

I 2=T I 2/TOTT *700 
J2=632 

CALL VECTORdl, Jl, 12, J2> 

1 1=TI3/TOTT* : 700 
J 1 =776 

CALL VECTOR (I 2, J2, II, Jl ) 

1 2=700 
J2=776 

CALL VECTORdl, Jl, 12. J2) 

C DRAW SCHEDULED ENGINE SPEED 
11=0 
J 1=482 

I2=THU/TOTT*700 
J 2=482 

CALL VECTORdl, Jl, 12, J2) 

I 1 =THU/TQTT *700 
J 1=554 

I2=TI2/TOTT*700 

J2=554 

CALL VECTORdl , Jl, 12, J2) 

C DRAW HOT METAL GOAL TICK CTHMG) 

11=0 
J 1=200 
12=10 
J2=200 

CALL VECTORdl, Jl, 12, J2) 

C DRAW COOLING WATER TEMP TICK (TWI) 
Jl = 10 
J2= 10 

CALL VECTORdl, Jl, 12, J2) 

C CALCULATE DISPLAY PARAMETERS 
PDIF=PRH 

XLOW=VTD+VHDX+VCDA 
XDV= t ACY+BCY) *RC2 
158 CONTINUE 
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4.2.4 Write Unified Printout (Lines 213-229) 

The unified printout is placed first in the main loop of the program so that 
the initial conditions can be displayed. The readout may either be to the 
screen (Q2 = 5.0) or to the printer (Q2 = 2.0). This option is changed from 
CNTLA. Then in Line 101 of CNTLB the integer J is set from the real value 
Q2. The format of the readout is nine columns tut not all are filled. The 
key to the readout is given in the Program Users Manual (Section 6) . 

Note that this printout is optional. It is enabled when Q3 = 1.0. This flag 
can be changed from CNTLA. If the graphic readout gives all the information 
desired, then it greatly speeds up the calculation bj, having the printout 
infrequently. 

The value TREP can be set from CNTLA to control the repetition time for this 
printout. 


L!3* 

C*****WRITE UNIFIED PRINTOUT— RETURN POINT FOR MAIN LOOP 

214* 

401 


1F(Q3-1. 0)390, 402. 390 

215* 

402 


IF (TIM- FGF) 390, 391, 391 

216* 

391 


POF-POF+TREP 

217* 



WRITE < J, 8025) TIM, CFF, REV, OMEG, SPV1, SPVD, DDT 

218* 

8025 


FORMAT (6F8. 2. F8. 5, 2F8. 2) 

219* 



WRITE(J,8022)TIN(1),TIN(2).TIN(3),TIN(4),TIN(5),TIN(6),TIN(7>, 

220* 


1 

TINC8), TINC9) 

221 : 



WRITE( J, 8022) EX ( 1 ) , EX (2) , EX (3) . EX (4) , EX C5) , EX (6) , EX (7) , 

222* 


1 

EX (8), FLAME 

223* 



WR I TE < J , 8022 ) TOU ( 1 ) , TOU ( 2 ) , TOU < 3 ) , TOU < 4 ) , TOU ( 5 ) , TOU < 6 ) , TOU ( 7 ) , 

224* 


1 

TOU(B) , T0U(9) 

225* 



DO 10 1*1, 4 

226* 

10 


WR I TE < J , 8022 ) TM ( l , I) , TM(2. I ) , TMC3, 1) , TM(4, I),TM<5. I).Pl(I), 

227* 


1 

M(I ) , VT (1, I) 

228* 

8022 


FORMAT (9<FB. 2)) 

229: 



WRITE( J, 8022 ) TNET ♦ TQS, TQV, VIN, MIR1, ROE 
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4.2.5 Display Graphic Data (Lines 230-290) (Optional) 


The display offers a fast and comprehensible way of showing what is going 
on during the solution. To speed the solution, the display does not print 
every time step. The total time, TOTT, is divided by 1024, the number of 
horizontal addresses for plotting to give the graphic display interval, GDI, 
in seconds. (See line 129.) Therefore, the display programming from line 
233 to 2?? only is called upon 1024 times during the solution at a regular 
time interval. There could be 1024 different points if a Tektronix terminal 
were used. With the AEM-3 Retrographics package used in development of this 
program, 512 horizontal points are plotable. Therefore, two dots are possible 
in the vertical direction for every plotable point in the horizontal direction. 


The following displays are shown i 

A. From the beginning 

1. current fuel flow race (over full height of display) 

2. average heater metal temperature 

3. flue gas leaving heatur and entering preheater 

4. flue gas leaving preheater 

5. average of metal node 1 (around hot spaces) 

6. average of metal node 4 (at the hot end of the regenerators) 

7. average of metal node 5 (at the middle of the regenerators) 

B. After engine starts to be cranked (see line 269) 

8 . engine speed 

9. vehicle speed 

The above displays are plotted 1024 times during the solution or twice for 
every dlsplayable point using the Retrographics package. 


230i 

231i 

232* 

233* 

234* 

235* 

236* 

237* 

238* 

233* 

240* 

241* 

242* 

243* 

244* 

245* 

246* 

247* 

248* 


o****display GRAPHIC DATA. PART 1 

390 IFCQl-l. )20» 21 . 20 

C CHECK TO SEE IF PLOTTING SHOULD BE DONE 

21 IF(TIM-GDF)20. 393. 393 

393 GDF-GDF+GDI 

C SHOW FUEL FLOW RATE 

I1«TIM/TOTT*700 
J1=CFF/FFF*777 
CALL POINT(Il.Jl) 

C SHOW AVERAGE HEATER TEMP. 

J1»(TA-TWI > /TD*190+10 
CALL POINT(Il.Jl) 

C SHOW FLUE GAS TEMP. ENTERING PREHEATER 
Jl-(TOU(N+l >-TWI ) /TD*190+10 
CALL POINTCI1. Jl) 

C SHOW FLUE GAS TEMP. LEAVING PREHEATER 
J1*<TQU<1)-TWI)/TD*190+10 
CALL POINT(Il.Jl) 

C SHOW AVE. HOT METAL SPACE TEMP (NODE #1) 
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2491 


X-0 

2501 


DO 145 1-1,4 

25U 

145 

X-TM(1, I>+X 

2521 


X-X/4. 

253* 


J1-(X-TWI J/TD+190+10 

254* 


CALL POINT(Il.Jl) 

255* 

C SHOW 

AVE METAL TEMP HOT END REGEN. (NODE #4) 

256* 


X-0 

257* 


DO 146 X-1.4 

258* 

146 

X-TM(4, I)+X 

259* 


X-X/4. 

2S0* 


J1-(X~TWI)/TD+1S0+10 

261* 


CALL POINT(Il.Jl) 

262* 

C SHOW 

AVE. METAL TEMP. MIDDLE REGEN. (NODE #5) 

263* 


X-0 

264* 


DO 147 1-1,4 

265* 

147 

X-TM(5» I)+X 

266* 


X-X/4. 

267* 


J1-(X-TWI>/TD*190+10 

268* 


CALL PQINTdl, Jl) 

269* 


IF(TIM-THU)20> 20, 954 

270* 

C SHOW 

ENGINE SPEED 

271* 

954 

J 1 -OMEO/OM 1 *72+482 

272* 


CALL POINT( 1 1, Jl) 

273* 


IF(TIM-TI2>20,20, 953 

274* 

C SHOW 

VEHICLE SPEED 

275* 

953 

J 1 *=SPV 1 / SPM* 1 44+632 

276* 


CALL POINT ( I 1, Jl > 

277* 

20 

CONTINI IP 


The final part of the graphic data display involves the drawing of four 
pressure-volume curves for the four working spaces. These curves are drawn 
only when the flag Q1 - 1. and the time, TIM, is greater than THU. That is, 
the curves are drawn only when the engine should be moving. The initial 
engine pressures plot nunber is calculated on line 320 and the initial volume 
plot number is calculated on line 340. These are only calculated once. 
Starting with these values, the next values of these two numbers are cal- 
culated on lines 284 and 285. With the initial and next value for both 
pressure and volume for all four working volumes, lour lines (vectors) are 
drawn (line 286) . In lines 287 and 288 the next values become the initial 
values for the next time around. This part of the program draws four con- 
tinuous lines tracing out the work diagram for each working space. 
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2781 

C*****DISPLAY GRAPHIC DATA. PART 2 

279* 

C PLOTTING FOR EVERY TIME 8TEP OF 4 P-V DIAGRAMS 

280* 

C CHECK 

TO SEE IF OPTION 18 ON 

281* 


IFCQ1-1. >852.853.852 

282* 

853 

IF (TIM-THU) 852. 852. 854 

283* 

854 

DO 985 1=1. 4 

284* 


1PVC2. I)-<CVM<8, 1 ) -XLOW > *323 /X DV+700 

285* 


JPVC2, I>-Pl<I>*190/PDIF+190*<4-I> 

286 * 


CALL VECTORUPVU, I>» JPVU. I). IPV(2. 1). JPV<2* I>) 

287* 


IPVC1, I)»IPV<2» I> 

288* 


JPVU, I)»JPV(2» I) 

289* 

985 

CONTINUE 

290* 

852 

CONTINUE 


After every five cycles, the screen area where the work diagrams have been 
drawn is erased. (See lines 365-372.) 


4.2.6 Engine and Vehicle Control Subprogram (SVCS)— Part 1 (Lines 291-^55) 

Figure 4.4 shows the overall flow chart for CNTLB with mere particulars 
given to the engine and vehicle control program than was given in Figure 4.2. 
The first decision point is to determine whether the cumulative time, TIM, has 
reached or exceeded THU, the specified heat up time. If it has not, the 
flag IG1 is set at zero. The program jumps directly to increment the time. 

The burner and conduction subprogram is executed. This calculates con- 

duction and external heat transfer in the air preheater and to the gas 
heater of the engine (see Section 4.2.7) • After this, the flag IGl is 
tested (Fart 2). Since it is less than 1, the program jumps back to the 
readout and display and starts through again. 


291* C*****ENGINE AND VEHICLE CONTROL SUBPROGRAM PART 1 

292* C CHECK TO SEE IF HEAT UP TIME IS EXCEEDED 

293* I F ( T I M-THU ) 503 » 502 » 502 

294* 503 IG1=0 

295* GOTO 501 


Eventually, the air preheater and engine get partially heated up when TIM 
exceeds THU. At this point if this is the first time through, the engine gas 
inventories are calculated based upon the specified low gas reservoir 
pressure , the volumes at zero engine angle and gas temperatures in the 
different parts which are assumed to be equal to the metal node temperatures 
at that time. Also, the time step is reduced by a factor of 10 to start 
out (lines 300-301) . However, the time step is finally adjusted in lines 
351-357. 


18 



Start, Read File, Initialize, Draw Frame I *' 212 


Readout and Display 213 * 290 
f 291 - 2957 " 


TIM-THU? 


161*0 


„ i 296-29 8 

■^2-^FIrst T1me?V-—-" 


^ f 299-342 

Calculate Gas Inventories, Temperatures, 


Yes y no 

- L£2 -< Crank? >— 



373-374 


In Gear? 


t 375-376 
IG1*1 I 


377-389 I I61 “ 2 



446-449 


Figure 4.4. Overall Flow Chart of CN7LB with Eropahsis on Engine and Vehicle 
Control Subprogram . 
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Check Display to Screen 


Index Time 1 453 “ 455 


Burner and Conduction Subprogram 


v / 

r ECVS Part 2 ^ 

\ °-; 

* \ 




456-554 


Engine Torque and Internal Heat Transfer Subprogram 


{ (Calculates TQS) 
- §§ 2=651 

yO / ECVS Part 3 ^ 

* X TIM - TOTT / * I 


S'ifnnary Readout J 852-854 


Figure 4.4. Part 2. 








296 

297 

298 

299 
308 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 


C FIRST TIME CALCULATION OF 0A8 MASSES AND INITIALIZE PRESSURES 
C F.ND SET GAS TEMPS. TO CURRENT METAL NODE TEMPS. 

502 IF <102-1 >504,506.506 

504 102*1 

C REDUCE TIME STEP AT START OF CRANKING 
DDT-DDT/10. 

X«PRL*MW/R 
DO 507 1-1*4 
C NODAL GAS MASSES 

Wd. 1. D-X+VHAU* I)/TM<t» I) 

WC1. 2* I)-X-VHM*2./<TMd. D+TMC2* !>) 

W(l,3. I>-X*VHD*2./(TM<3. I)«*Th<2» I>> 

Wd* 4* I)-X*VRM*2./(TM<4, I)«TM<3. I>) 

W(l* 5* I>-X*VRD/<TM<5. D+TMC4. I>) 

UC1.6. I>-X*VRD/<TM<6,I>«TM<5. I>> 

Wd* 7* I>-X*VCD/TWI 
14(1*8* D"X*VCA(1« D/TWI 
C TOTAL GAS MASSES 
M(X)-0. 

DO 380 K*l« 8 

980 M(I )-M(I >+W(l» K» I) 

C PRESSURES 

PKD-PRL 

C INITIAL PRESSURE PLOT PARAMETERS 

JPVU, I)-(P1 <I)-PRL)*195/PDIF+195*<4-X) 

C AVERAGE GAS AND METAL TEMPERATURES 
TGAd.l. D-TMCl* I) 

DO 981 K-2.6 

TMA(K» I)r'TM(K-l» I)+TM<K, I>>/2. 

981 TGAd.K* 1/-TMACK* I) 

TMA(7* D-TWI 
TMA(B* I)-TWI 
TOAd* 7» D-TWI 
TGAC1.8. D-TWI 


330 

331 

332 

333 

334 

335 

336 

337 
336 

339 

340 

341 

342 


C CUMULATIVE GAS VOLUMES 
CV3C1* D-VHACI. I) 

CVG(2* D-CVOd. D+VHM 
CVG (3. I ) -CVG< 2. X ) *VHD 
CVGC4. I)-CVG(3* D+VRM 
CVG(3* I)-CVG(4. D+VRD/2. 

CVG (6* D«CVG(5* D+VRD/2. 

CVGC7* D-CVti(6* X ) ♦VCD 
CVG (8* D-VTCl* X) 

C VOLUME PLOT PARAMETERS 

XPVC1* D-(CVG<8, I ) -XLOW) *323/XDV+700 
507 CONTINUE 

506 CONTINUE 
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If TTH Is between THU and THU + TCR, the engine is cranked and a torque, TST, 
is applied to the engine. The net torque accelerating the engine is this 
torque, when it is applied, plus TQS, the shaft torque realized by the engine 
pressures and the position of the pistons inside the engine and minus TQV, 
the retarding torque at the shaft due to the rolling resistance and the air 
resistance of the vehicle. At first, the only torque causing motion is TST. 
As gas is added to the engine, TCJS becomes a factor. After the car starts 
moving, T^V also becomes a factor. 


3431 

C TEST 

TO SEE IF ENGINE SHOULD BE CRANKED 

3441 


IF < T I PI- < THU+TCR ) ) 508. 509. 509 

3451 

509 

X-0.0 

3461 


GOTO 511 

3471 

508 

X-TST 

34 G 1 

511 

TNET-TQS-TQV+X 


Based upon the net torque, the engine will move a certain number of degrees. 
The general formula 1 st 


Net Torque 


Newton -meter s 


/Effective Moment\ # / Angular \ 
' of Inertia / ^Acceleration/ 

Kg m radians/sec 


Since a Newton is the force required to accelerate one Kg at the rate of one 
meter per second per second, the above equation checks dimensionally. 

Assume that the engine is Idling and the engine itself has a moment of 
inertja, EIN'. Let A., A? and At be the crankshaft angle in radians for one 
time step in the past, tne current position aid one time step in the future, 
respectively. Thus, 


Th'ET = EIN 


A 3 ~ A 2 A 2 " A 1 
DDT " DDT 
DDT 


The angular velocity OMBC is defin ed at (A ? - A^/DZT, and the angular Incre- 
ment DANG = A3 - A2. Making these substitutions, one can obtain 1 

DANG = (DDT) 2 ♦ DDT(OMBG) 

If the car is in gear, the inertia of the vehicle must be converted to 
effective inertia as seen by the engine. Equate the kinetic energy of tiie 
vehicle to the rotational energy of an equivalent flywheel. Thus* 

\ MIV(SPVl) 2 = \ (VIN) (CMBG) 2 


So 


/ SPV 1 \ 2 

VIN = M I V ( OM0G ' 


The ratio 


SPV 1 
CM EG 


RGE 

2ir 



where SPV1 « vehicle velocity beginning of tine step, meters/sec 

CM EG = engine angular velocity, rad/seo 
RGB - meters traveled/engine revolution 

The quantity RGE charges as the gears change and is calculated later (lines 
395-^19) • In the general case the equivalent vehicle Inertia must be added 
to engine inertia BIN . 

Therefore, the angle increment is calculated by the formula . 

349i C CALCULATE ANGLE INCREMENT 

350 * 512 DANG*DDT **2*TNET / (El N+VI N> +DDT+OMEG 


Now that DANG is calculated, we must find out whether it is suitable. During 
the first part when TIM was less than THU, the time step DDT was chosen to 
give accurate but. rapid calculation of the heat up of the engine and air pre- 
heater. When the engine starts to run, not very accjrate calculation of engine 
performance can be had if DANG is more than 0.5236 radians (30°) • Therefore, 
if DANG becomes greater than this, DDT is halved as many times as it takes to 
become less than 30°. If engine speed should fall during the driving cycle 
because of a gear change or a specified speed charge, there needs to be a 
way to Increase the time step again by doubling It and if necessary, redoubling 
it till the angle change is at least 7° (0.12217 radian) . 


151 

352 

353 

354 

355 

356 

357 


C ADJUST TIME STEP SO THAT ANGLE INCR. IS >7 AND <30 DEG 
IF<DANG-0. 52360 >515. 515/ 513 
513 DDT=DDT/2. 

GOTO 512 

515 I F< DANG-0. 12217>51?.. 517, 516 

517 DDT=DDT+2. 

GOTO 512 


Next, the engine angle in v ">th degrees and r adians is indexed. If the angle 
is greater than 360 degree the computer won't handle it as accurately so 
the program should keep it within this range. 


358* 

359* 

360* 

361* 

362* 

363* 

364* 


C INDEX ENGINE ANGLE MEASURES 
516 EARAD 3 DANG+EARAD 

EADEG=EARMD/RAD 
REV-REV+DONG/ < 2. *P ! > 
IF(EADEG-360. >239, 240, 240 
240 F 9DEG“EAPEG-360. 

t^RAD“EARAD”2. *PI 


Since this part of the program is entered once per engine revolution, it is a 
good place to put the erase program. If the graphic option is on (Q1 - l) , 
the program counts the number of revolutions with the revolution counter, 

NER . When it reaches 5, it resets th»- counter and calls ERASE. 
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3651 

C ERRASE PV PLOT FIELD AFTER 

3661 


IFCQl-l. >239. 151.239 

367« 

151 

IFCNER-5) 152. 150. 150 

366 1 

150 

NER-0 

3691 


CALL ERASE 

3701 


GOTO 239 

371 « 

152 

NER-NER+1 

372* 

239 

CONTINUE 


The subroutine ERASE will now be explained. This subroutine (lines 80?-921) 
using the conventions for the Retrographics package and presumably for the 
Tektronics Plot !.0 software draws a series of black lines. Each line goes 
from 2 to 777 in the vertical direction (see Figure 4.3) . Each time ERASE 
is called, a series of black lines are drawn from the horizontal position 
710 to 1013- Although the number of plotable points in the horizontal 
direction is 312 and the addresses are 1023i it would seem that every other 
address would do a complete erase. It did not. By this means all the pres- 
sure-volume diagrams are erased so that one can see where the new ones fall. 
(See Appendix C for additional explanation of this subroutine.) 


397 

C SUBROUTINE USED TO ERASE 

389 


SUBROUTINE ERASE 

339 


INTEGER*! GS, US, CA, 1 

390 


DATA GS, US, CA. ES, DE 

891 


DO 70 TP-710, 1017 

392 


CALL CONOUT <GS> 

893 


CALL CONOUT < EST 

894 


CALL CONOUT <DE> 

395 


VH=777/72+72 

396 


VL=M0D<777, 72>+96 

9*7 


XH=JP/32+32 

398 


XL=M0D< TP, 72 '’+64 

399 


CALL CONOUT <VH> 

■500 


CALL CONOUT '.'VL'- 

QfH 


CALL CONOUT <XH> 

902 


CALL CONOUT < XL > 

90“ 


DO 10 I =1 . 200 

*04 


M= I +1 

905 

10 

CONTINUE 

906 


YH=?/32+72 

0*7 


VL=M0D*'2, 22>+°6 

'300 


CALL CONOUT -VH"- 

999 


CALL CONOUT •' VL > 

*10 


CALL CONOUT <XH S > 

911 


CALL CONOUT < XL > 

912 


DO 90 1=1, 200 

* 1 ”: 


m-i+i 

914 

20 

CONTINUE 

915 


CA! L CONOUT • ES’' 

916 


CALL CONOUT- 89 ^ 

*17 


CALL CONOUT v US'- 

919 


CALL CONOUT -X A > 

ch c: 

70 

CONTINUE 

*20 


RETURN 

92 1 


END 


PV DISPLAV FIELD 


RA/29, 31/ 24, 2T 


< H, XL 

127, : 


24 



Now that a proper time step has been chosen, the next thing Is to determine 
what should be done with the engine pressure. When the engine is idling, the 
engine pressure is adjusted to keep the engine speed adjusted to maintain a 
specified vehicle speed schedule. Therefore, TIM is compared against TI2, 
the cumulative time in which the engine is put in gear to determine which 
method is used to adjust pressure and to compute vehicle inertia and vehicle 
friction (see Figure 4.4). 

373» C CHECK TO SEE IF ENGINE SHOULD BE IDUEING OR IN DEAR 
3741 IF(TIh-TI2)519»519t520 

If the engine is idling, IG1 is set to 1. If it is in gear, IG1 is set to 
2. So far it makes no difference subsequently whether IG1 is 1 or 2. 

Possibly later modifications may utilize this. 

For the base case driving cycle, the idling comes before the driving. The 
current engine speed, OMEG, is compared with the specified idling engine 
speed OKI. The valve setting for the addition or removal of gas is dia- 
grammed in Figure 4.5. Three valves are used in series (see Figure 4.6). 

Valve 1 . A slide valve which is open between +45° from bottom dead center of 
each piston in the four cylinder array. The opening of these four slide 
valves relate to the engine angle as follows i 

Table 4.1 

ENGINE PRESSURE ADJUSTMENT SCHEDULE 


Engine Angle 
degrees 

Number of Cylinder 
with Slide Valve Open 

Number of Working 
Space Having 
Pressure Adjusted 

315 to 45 

1 

4 

45 to 135 

4 

3 

135 to 225 

3 

O 

225 to 315 

2 

1 


Valve 2 . A throttle valve which is closed when the engine speed is exactly 
the desired speed. At a speed difference, PBIS,on either side of the speed 
goal, the throttle valve becomes full open at MIR. 

Valve 3 . A switch valve, The throttle valve is connected to the high 
pressure reservoir. When the engine speed is below the desired speed and 
to the low pressure reservoir when the engine speed is above the desired 
speed . 

The author feels that this control scheme is reasonably realistic and similar 
to control schemes actually used. Other control methods can be substituted. 
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v 











3751 

C ADJUST ENGINE PRESSURES TO CONTROL SPEED UP 

376» 

519 

XG1-1 

3771 


IF(OMEG-OMl) 838. 848. 848 

3781 

848 

IFCOMEQ-COni+PBXS) ) 841, 841, 842 

3791 

842 

MIR1-MIR 

3881 


GOTO 843 

38H 

841 

MI R1 -Ml R+ (OHEG-Om ) /PBI8 

3821 

843 

X«PRL 

3831 


GOTO 855 

3841 

838 

XF(OMEG-(Ot11-PBIS> >831, 831,832 

3851 

831 

MIR1-MXR 

3881 


GOTO 833 

3871 

832 

MI R1 -MI R* < OM 1 -OMEG ) /PBI 8 

3681 

633 

X-PRH 

389i 

835 

CALL MASS ( XG3, PX, MX R1 , DDT. X. PI . EADEG) 


The above programming sets up the subroutine to calculate which compartment 
is to have its gas inventory adjusted and by how much. Since this is the 
first time the subroutine is used, it will be explained here. 

For each time step one of the four compartments has gas added to or removed 
from it. The gas i3 added at inlet cooling water temperature to the adiabatic 
cold space. It is removed at the same place it is added. The working space 
that has received the gas change is noted by setting flag IG3 to 1, 2, 3 or 4. 
In the previous programming X is set at the high reservoir pressure, PRH 
(line 388) or the low reservoir pressure, PRL (line 382) . The pressure in 
the working space that is having its pressure adjusted, PX, approaches 
pressure X exponentially with a time constant MIR1. MIRI is set bv the error 
in engine speed, OHBG, compared to what is desired (see Figure 4,5). Sub- 
routine MASS is also called from line 440 where the control is from vehicle 
speed rather than engine speed. 

Originally, at this point the mass of gas in the working space was adjusted, 
thus the name. By experience, it was found that the pressure must be 
adjusted Instead to maintain numerical stability. 


956 


SUBROUTINE MRSS«' IG3, PX. MIRI, DDT, X, PI 

957 


DIMENSION Pl<4> 

858 


PERL M2, MIRi 

85? 


IFcERDEG-45 '860, 860, 89© 

SSO 

890 

IFvERDEG-175 >862, 862, 856 

861 

856 

IFCERDEG-225 '>S64 864- 857 

$62 

857 

IF<ERDEG-315 >858,858,860 

962 

C GRS 

CHRNGE IN WORKING SPRCE 1 

864 

858 

IG3=1 

865 


PX*» •' P 1 < 1 > -X > ♦EXP •' -M I PI + DDT > 

866 


G0T0875 

867 

C GO? 

CHRNGE IN WORKING SPRCE 4 

868 

860 

IG2=4 

86? 


PX-X+ < Pi < 4 ' -X > ♦EXP ‘'-MIRI ♦DDT > 

870 


G0T0875 
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87! 

c gas 

CHANGE IN WORKING SPACE 7 


882 

IG?«? 



e X*X+ < PI < 2 > -X > +EXP <r -M I Pi +PDT 

874 


G0T0878 

875 

C 088 

CHANGE IN WORKING SPACE ? 

878 : 

884 

107=2 

877 


PX=X+ < PI 1 2 • -x > ♦EXP < -M I P1*C’PT s > 

878 

978 

RETURN 

878 


END 


The final thing that needs to be done in this branch of the program where 
the engine is not in gear is to find the new engine speed. This computa- 
tion was delayed till this point so the old engine speed can be used to 
adjust engine pressure. 

390i C COMPUTE NEW ANGULAR VELOCITY 
39H OMEG-DANQ/DDT 

3921 GOTO 501 

For the case where the engine is in gear, a more complicated set of deter- 
minations are required. This also is diagrammed in Figure 4.5 (lines 393-449) . 
The first thing is to set the gear ratio (lines 395-420) . The equivalent of 
a clutch is modeled by having the gear ratio change from 0 to the first gear 
ratio RGE1 in the specified gear change time GOT. The programming specifies 
a linear change in this ratio. Figure 4.7 shows how the ether gear ratios 
for the second or third gear are applied depending on the vehicle speed. A 
linear change over the same gear change time is programmed in. 



ORIGINAL Mfl** 
POOR QUALITY 
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393: C ENGINE AND VEHICLE CONTROL WHILE ENGINE IS IN GEAR 

394: 320 IG1-2 

393: C GEAR CHANGE TIME APPLIED TO ALL GEARS 

396* : IF<NGC>170, 171, 172 

397 : 170 I F < T I M- < T 1 2+GCT > > 900, 901, 901 

398: 900 RGE-<TIM-TI2>*RGE1/GCT 

399 : GOTO 910 

400 : 901 I F < SPV1-VSP2 > 906, 905, 903 

401 : 906 RGE-RGE1 

402 : GOTO 910 

403 : 905 NGC-0 

404: TIMX=TIM 

405 : GOTO 910 

406 171 IF<TIM-<TIMX+GCT>>162, 163, 163 


407 

162 

408: 


409: 

163 

410: 


411: 

907 

412: 


413 

908 

414: 


415: 


416 

172 

417: 

166 

418: 


419 : 

167 


420 


RGE-RGE1+ < T I M-T I MX > * < RGE2-RGE1 > /GCT 

GOTO 910 

CONTINUE 

I F •' SPV1-VSP3 > 907, 90S- 908 

PGE=RGE2 

GOTO 910 

NGC=1 

TIMX=.TIfi 

GOTO 910 

IF''TIM-<TIM:s+GCT>>166. 167, 167 

PGE=PGE2-K RGE2-RGE2 > * C TT M-T I MX > /GCT 

GOTO 910 

RGE=RGE3 

GOTO910 



Once the gear ratio is determined, the effective vehicle inertia, VIN, is 
determined. This equation was derived in Section 4.2.6. 

421 C ADDITIONAL EFFECTIVE ENGINE INERTIA DUE TO VEHICLE ATTACHMENT 

422 910 V I N=M I V* •' PGE/ < 2 +PIV-++2 

Next, the scheduled vehicle speed needs to be determined to decide which way 
the control will go. Resident in the program is a ramp change in speed 
from zero to the cruising speed followed by a steady cruising speed until 
the end of the driving cycle. 

42^ C FIND SCHEDULED VEHICLE SPEED 

424 I F •' T I M-T 1 3 > 912, 911, 911 

425 912 5PVD=SPM* T I M-T 1 2 > /TAC 

476 GOTO 917 

427 911 SPVD=SPM 

The adjustment of engine pressure to control vehicle speed is standard in 
automotive Stirling engines. Other things like dead volume control or pis- 
ton stroke control can be added as options at this point. The control 
scheme is parallel with that used to control ongine speed during idle. 

(See Figure 4.5*) If the vehicle speed, SPV1 is within the proportional 
band of PBVS of the scheduled vehicle speed, SPVL, then the valve setting 
MIR1 is proportional to this error. If the error is beyond this band in 
either direction, the valve setting is MIR. 
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Once the valve setting is determined, the switch valve to connect the engine 
space to either the high pressure reservoir or the low pressure reservoir Is 
set by making X either FRL if gas should come out of the engine or PRH If 
gas should go Into the engine. Once this Is determined the subroutine mass 
is called because two different parts of the program uses It. Subroutine 
determines which engine compartment gets or gives the gas. It Identifies 
this working space for later use (sets IG3) and determines the new pressure, 
PX. The subroutine has already been explained in this section. 


428 

C ADJUST ENGINE PRESSURE TO CONTROL VEHICLE SPEED 


912 

IF<SPV1-SPVD>930, 940, 940 

478 

940 

I F < SPV1- < SPVD+PBVS > > 941, 941, 942 

421 

942 

MIR1=MIR 

422 


GOTO 942 

42? 

941 

MIR1=MIR*< SPV1-SPVD > /PBVS 

424 

942 

X a PRL 

423 


GOTO 955 

42* 

920 

I F < SP VI - < SP VD-PB VS > > 931, 931, 922 

427 

921 

MIR1=MIP 

428 


GOTO 93? 

429 

922 

M I P1*M I R* < SPVD-SPV1 > /PBVS 

440 

922 

X«PRH 

441 

955 

CALL MASS< IG2, PX, MIR1, DDT, X. PI, EADEG> 

Next, 

the rolling friction and air friction are determined. The rolling 


friction, RF, is in Newtons of retarding force applied to the vehicle. The 
formula used Is from Reference 1. The air friction formula is from the 
same source. The original rolling resistance formula 1st 

R = (W/6 5) 1 + (1.4 x 10~ 3 V) + (1.2 X 10' 5 V 2 ) 

where V is vehicle velocity in feet per second and W is vehicle weight in 
pounds. R is the rolling friction in pounds force. 

Unl„s and nomenclature have been converted to* 

RF = rolling friction, Newtons 
MIV = inertial mass of vehicle, Kg 
SPV1 = vehicle speed, meters/second 

The air drag specified is for a combined drag coefficient times frontal area 
of 12 ft = 1,12 m^ = AFR. The air friction is determined by the formula* 

AF = (SPV1) 2 

where .AF *= air friction, Newtons 

P = air density at 300 K 

= __?? «/& mol 222 x lOP-O Ihl 
22.^14 l/g mol A 300 A l600 g/Kg 
= 1.1774 Kg/m- 

AFR = frontal area times flow coefficient, m2 
SPV1 = vehicle speed, m/sec 
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Thus, 

AF - 1 -^p 4 (AFR) (SPV1) 2 

In CNTLA, 

KAR - 0.589 (AFR) 


The retarding torque that the rolling and air frictions of the vehicle apply 
to the engine also depends upon the gear ratio RGE. 

442 C TORQUE DUE TO VEHICLE ROLLING FRICTION, AIR FRICTTon 
442 ■ RF=MIV*<0. 151+0 000<S92+SPVl+0 0000195*SPVl*+2> 

444 : AF«KRP+SPVi**2 

445: TQV*=<RF+AF>*RGE/<2. ♦PI'' 

Finally, after all the uses for the old engine speed (angular veolcity) and 
the old vehicle speed have been applied, new values for both of these are 
calculated in this part of the program. The engine speed, OMEG, is calculated 
the same whether it is in the idling or in the in-gear part of the program. 
However, they cannot be combined bt-cause in this part the new vehicle speed, 
SPV1, depends upon OMEG and also upon RGE, the working gear ratio, which is 
only defined in +hls part of the program. 

44F: C COMPUTE NEW ANGULAR VELOCITY 

447 : OMEG=DANG/DDT 

44!? C COMPUTE NEW VEHICLE S P EED 

449 • SPVl=OMEG+PGE/< 2. *P I > 

Now the two parts of the program come together. At this point a check 
display to the screen is included so that the operator may monitor the solu- 
tion more accurately than the graphical display does. (See Section 6 for 
additional details.) 

450 C ONE LINE CHECK DISPLAY TO SCREEN 

451 501 WRITE (5, 8030 > TIM, CFF, REV, OMEG. SPV1, SPVD, RGE NGC 

452: 8030 F0RMRTC7E9 3, I3> 

Whether the engine is stopped, idling or in gear (see Figure 4.4), the 
cumulative time counter, TIM, is incremented. 

452: C INDEX TIME 

454 TIM=TIM+DDT 

455: C***+*END ENGINE RND VEHICLE CONTROL SUBPROGRAM PART 1 

This is the end of the explanation of the engine and vehicle control sub- 
program — part 1. Explanation of the other two parts will be given as they 
appear in the program. 


4.2.7 Burner and Conduction Subprogram 

This subprogram along with part of the control program is the only one opera- 
tive when the engine is stopped. It takes care of controlling the average 
temperature of the heater tubes at the target temperature and figures heat 
conduction through the engine to the cooling water. It also computes the 
transient response of the air preheater. 
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This subprogram will be explained in the order of calculation. However, 
before very much in this subprogram will make sense, the nomenclature must 
be explained. 


4.2.7 *1 Nodal Organization 

Figure 4.8 shows a schematic of the burner and air preheater. Eight metal 
nodes are chosen since this gives rapid computation and reasonable accuracy 
(see Appendix A). The metal node temperatures in the air preheater EX(l) 
to EX(8) must be Initialized to ambient or whatever the input file says. 
(See Section 4.2.2.) 



Figure 4.8. Burner and Air Preheater Schematic. 

Figure 4.9 shows the metal node nomenclature for the engine needed for burner 
heating, heat conduction, and engine operation. There are 8 metal nodes 
defined. Each node has the following properties! 

1. a temperature, TM(X,Y), K 

2. a location, VM(X,Y) in cm^ of gas volume from t. e hot end of the 
engine to the node point 

3* a thermal conductivity, KM(X), from the node point to the next 
lower one, w/cm K 

4. a heat capacity, CM(X), of the material surrounding the node point 
to half way to the next node point, W/K 

In the above list the agruments of the four arrays defined were listed as 
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A ■ Adiabatic 
I * Isothermal 

CM(X) * Heat Capacity of Metal 
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> igu 


X and Y. In this case X is the number of metal nodes, 8, and Y Is the 
number of working spaces in the engine, 4. 

The gas volume nomenclature for the engine is also shown on Figure 4.9. 
VHA(X,Y) 1 b the variable hot volume which is assumed to be adiabatic. This 
is a very good assumption except for a small portion of each cycle. X is 
for the beginning and end of the time step and Y is for the four cylinders 
of the engine. 

Similarly, VCA(X,Y) Is the variable cold volume assumed to be adiabatic. 

The constant dead volumes are also identified in Figure 4.9. The gas in 
these volumes is assumed to attain metal temperature once each cycle. In 
the engine torque and internal heat transfer subprogram, the heat transferred 
at each metal node is computed for this equilibration. Afterward the tempera- 
tures of the metal nodes are adjusted because of this heat transfer. For 
well designed engines, the assumption of Isothermal spaces in all except 
for the variable volume spaces is fairly good. The assumption was made to 
speed up the calculation. 

The thermal conductivity attached to metal nodes 1 to 6 is the watts of heat 
that would pass por °K of temperature difference. It pertains to the path 
toward the next lower node number . Note that these thermal conductivities are 
the same for all cylinders. 

The heat capacity attached to metal nodes 1 to 5 determines how fast the 
temperature of each node changes due to thermal imbalance . All metal node 
temperatures are adjusted each time step due to external convection and metal 
conduction . 

4. 2. 7. 2 Heater Temperature Control 


Now we will proceed with the explanation of tlie program. 

The first thing is the indexing of the metal node temperatures in the air pre- 
heater. In the unified printout (see Section 4.2.4), the temperatures of the 
air (TIN(I)) and the flue gas (TOu(l)) (see Figure 4.8) relate to the original 
air preheater metal node temperatures, EX(l) , rather than the metal node 
temperatures at the end of the time step EY(I) after heat transfer has 
taken place. Therefore, this indexing is done at the start of the subprogram. 

456 ■: ***** BURNER AND HEfiT CONDUCTION SUBPROGRAM 

45? C INDEX RPH METAL NODE TEMPERATURES 

458 DO 8050 I*i, N 

459 8050 EX 1 ' I '>=EV< I ■) 

Next, the average temperature for the gas heater metal at the start of the 
time step is found. According to Figure 4.9 the gas heater has a node on 
each end of each of the heaters. These temperatures may be different due to 
different conduction effects or the effect of the gas flowing inside the 
engine. An average is taken of the temperature of all 8 metal nodes (2 
for each working space) . 
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IF.O r Fine- NVEPRF.g HEATER '-EMPERATUPE fop control purposes 

■1*1 400 rp|”t tm> .? t 2>+TM<?. 2 > +TM<2. 3>*TM<3> 3>+TM<2. 4> 

4r-."* |+TM*“. 4 • < ,*P 

Then the temperature error is itermined and the current fuel flow Is deter- 
mined from it by a proportional control algorithm. Figure 4.10 shows this 
response scheme. It is a simple proportional band control scheme. Ti>e 
average temperature will always droop a bit below the goal. Better control 
schemes can be substituted if needed. The fuel usage from +ho r.l-nrt * i. ui'JJ 
accumulated. The cumulative fuel -- v-*-, r-JzL, initialized on line 6?5 of 
CNTLA. Therefore, the value for the cumulative l'uel usage is shown at the 
end ol the program . 



Figure 4.10. Control Scheme for Engine Heaters. 


is 


463 

C 

TEMPERATURE ERROR (FOR CONTROL) 

464 


TE-THMG-TA 

465 

C 

C'JRRENT FUEL FLOW 

466 


IF<TE>405, 405/ 406 

467 

405 

CFF-0 01+FFF 

468 


GOTO409 

469 

406 

I F < TE-TPB >408/ 407, 407 

470 

407 

CFF-FFF 

471 


GOTO409 

472 

408 

CFF-FFF* <TE>/TP3 

473 

409 

CONTINUE 

474 


FUEL-FUEL+CFF +DDT 

4. 2.7. 3 Heat 

Transfer Factor Calculation 


This next part of tno subprogram has to do with calculating heat transfer 
factors to use In computing heat transfer In the air preheater and to the 
engine heater tubes. Since this process is complicated and since the results 
involve correlations that are only good to +20%, it was decided to go through 
it once at the beginning and then go through it again when the fuel flow has 
changed more than 20% in either direction. The following shows the if state- 
ments that direct the calculation around this part if CFL < CFF < CFH. 

475 C CHANGE HEAT TRANSFER FACTORS IF CFF HAS CHANGED SIGNIFICANTLY 

476 IF-'CFF-CFL^ 404 420. 420 

477 404 IF (CFF-CFH) 420, 420- 407 


This next part gives the basis for calculating the heat transfer factors for 
both sides of the air preheater and the gas heater. First, the air flow and 
the heat capacities must re determined. With the fuel flow specified, the 
air flow is specified in order to give 10% excess air. The air fuel ratio 
was i . u upon normal octane as an average for the fuel actually used. The 
combustion equation lsi 

CqH i6 + 12.5 0 2 + 1.25 0 2 + 51-73 N 2 — 8 C0 2 + 9 H 2 0 + 1.25 0 2 + 51.73 N 2 

10 % 

excess 


On a one gram mole basis the fuel burned weighs 114.14 g and the air used to 
burn It weighs 1889.4? g. Therefore, for these assumptions the ratio of air 
to fuel, RAF '• 16.55 as given in the base case. Using this same chemical 
equation the heat capacity of the flue gas was averaged as follows 1 


C0 2 8 x 3 1 .94 = 95 52 

H o 0 9 x 9.20 - 82.80 

0.. 1.25 x 7.94 =■ 9.93 

C. 

N 2 51-73 X 7.50 - 380.98 

09.08 g mol 576.22 


Average flue gas 


heat capacity = 


= 8.23 cal/g mol C 
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The molecular weight of the flue gas Is 28.63. Therefore, the heat capacity 
of the flue gas, CPFG, in the units used in this calculation is 1.20 j/g K. 
The heat capacity for air, CPA, is 1.03 j/g K. These values are given in the 
program and can only be changed by revising the data statement (see CNTIiB 
line 32) • 

Given the fuel flow, the air flow is determined. From the air flow, the 
mass velocity, GAPH, of air in terms of grams per second of air flowing per 
cm 2 of flow area is computed. Next the Reynolds number is defined. Tnat is, 

RE = 

The equivalent diameter, DEQ, of the rectangular flow area is calculated as 
4 times the flow area divided by the wetted perimeter. (See line 669 of 
CNTLA.) The viscosity of air at ?00 K is about 4 x 10 _/+ g mass/cm sec. The 
reciprocal of this, 2500, is used to compute the Reynolds number, RE. 

478 : C HEAT TRANSFER FACTOR, AIR SIDE 

47? 40? GAPH=CFF+RAF. 'AFAPH 

480 PE=DEQ*GAPH+2500 

481 CALL STANTNvRE, STN > 

From the Reynolds number, the heat transfer coefficient is calculated by 
means of the correlation shown in Figure 4.11. This correlation is used for 
both the air and the flue gas side of the air preheater. It is subroutine 
STAN IN . 
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DEQ (GAPH) 
(viscosity of air) 
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The output of this correlation is taken as in?. Plant on number i imes the 
Prandtl number to the two-thirds power, w:Vi.l oewpera. .re factor is igr.or. ) 
Thus, 


STN 


TGAPn) ( cfT 



/it 700 K,the specific heat at constant pressure for air, CP is 1 .C/52 and the 
Prandtl number of 0.864. Thus, the heat transfer coefficient isi 

h = (STO) (C4PH) (1.19) 

In modeling the air preheater a number of different mathematical mcuels were 
tried. It was desired to have something simple ort still take into account 
the transient heat up of the air preheater starting at tne hot end. The 
scheme ■'•hat was chosen is shown in Figure 4.12. It is assumed taht the air 
preheater is divided into N segments. For the main program N was chosen as 
8. In Appendix A the effect of N on the accuracy of calculation is discussed. 
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In each segment the air and flue gas are separated by a plate with a constant 
temperature for that segment. It would be more realistic to assume a con- 
stant temperature gradient but the mathematical formulation was too compli- 
cated and would involve an iterative solution at each time step. The method 
chosen will be sufficiently accurate except at very low flows. Note that for 
each node both the air and the flue gas temperature approach the temperature 
of the air preheater plate. Both of these processes involve heat transfer to 
or ftom the plate. Then there is the process of conduction from one metal node 
to the next. In CNTLB the temperature of each metal node, EX(N) , is changed 
alter both air and flue gas heat transfers are calculated. In WARM (Appendix 
A) metal temperatures were changed twice and heat conduction along the metal 
was ignored. 

The calculation starts by setting the metal node temperatures, EX(l) to EX(8) . 
The inlet air temperature, TIN(l) is taken as the ambient air temperature. 
TIN(2) is calculated from TIN(l) as will be shown hereafter. TIN(3) is 
calculated from TIN (2) and so on up the stairs to TIN (9) • the temperature of 
the air leaving the air preheater . This preheated air burns with the fuel to 
produce a gas with a temperature FLAME. It exchanges heat with four sets of 
engine heaters which may have different temperatures due to the internal 
workings of each part of the engine. Each engine section has a metal node at 
both end^j of the engine heater. It is assumed that the same heat transfer 
coefficient applies to all heater nodes. The flue gas leaving the engine 
heaters has cooled and may be at different temperatures. It is averaged to 
become T0U(9) . The flue gas is now cooled down along the stairstep air pre- 
heater in the same way the air heats up. Finally, the temperatures of the 
air preheater metal is adjusted due to air and flue gas heat transfer and 
metal conduction. Also, the temperatures in the engine are adjusted due to 
metal conduction. In another part of the program which is active when the 
engine ro+ules the engine metal node temperature will be further adjusted 
due to heat transfer with the working gas. In al] these calculations the 
time step must be small enough so that the metal node temperatures do not 
change very much each increment. If they did, calculati onal instabilities 
would build up and destroy the simulation. 

For the first increment in the heat exchanger, the heat transferred from the 
metal to the air, H, can be expressed two different way:.. 

H = CPA * CFF * RAF * (TIN(2) - TIN(l)) 

Heat Heat Air Flow Temperature Rise 

Transfer Capacity 

watts j/g K g/sec K 

and 
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where 


... . . (EX(Q - TIN(0 - (EX (1) - TM(2» 

h , I EX 1) - TlilfllT) 

ln \EX{l) - iivU I 

h - STN * GAPH * 1.19 

A h = LAPH * WAPH * NAPH * 2/^0 

length width number 2 number 

one way sides of nodes 

When the above two equations are combined and solved for TIN(2) , the result 1st 
TIN (2) - 2X(1) - 

where X - UXX * STN * GAPH * 1.19/CFF 

TTX = LAPH » WAPH ♦ 2 » NAPH 
NO * RAF * CPA 

In evaluating Equa+lon i, it is easily possible for X to be large 
overflow the numKv size limit of a computer. For the Altos Z 80 
computer used c-o e''elop this program, exp(32) was about as large 
puter would go without giving an overflow error. Therefore, if X 
made equal to 32. Therefore, the heat transfer factor iss 

XY - exp(X) 

and the final equation to find the air temperatures in succession is* 

TIN(2) = EX(l) - (EX( l) - TIN(1))/XY 

Similarly, TIN(3) is calculated from TIN(2) and so on to TIN(9) . 

All of the above is necessary to explain the programming lines below, to 
find the heat transfer factor for the air side of the air preheater . The 
constant UXX is evaluated on line 673 in CNTLA and brought over through the 
data file . 

432 X=UXX*STN*GAPH*1. 19,‘CFF 

43? IF *'X GT 22 >X=32. 

434 XV=EXP < X > 


enough to 
based micro- 
as the com- 
> 32, it is 


The heat transfer factor for the flue gas side of the air preheater is cal- 
culated in the same way as the air side . The flow rate is greater and the 
heat capacity is greater, A quantity 'JXY analogous to UXX is brought over 
from CNTLA and used here . 


485 

c 

HERT TRANSFER FACTOR, FLUE 

488 


GftPH=CFF *: PA1 > /AFAPH 

48? • 


PE=DEQ+GAPH*2500. 

439 


CALL STANTN<RE, STN> 

489 


X=STN+GAPH+1 19+IJXV/CFF 

499 


IF< : v GT 22 > X=22 

491 


XZ=EXP«'X> 
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Next, the heat transfer factor, XH, for the flame heating the heater tubes 
must be calculated. 

Direct flame heated Stirling engines always have the outside heat transfer 
coefficient controlling. 

The equation and the values assuned to be valid for this case were taken from 
Table 4.2. 


Table 4.2 

EQUATION PARAMETERS USED FOR 
HEAT TRANSFER TO GAS HEATER (3) 
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l)J. 
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1 ,., 2 




Xj = 

1 25 


xr « 1. 
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0 
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1 250 

0 51 S 

0 550 

0 

505 

0 

55 1 

0 510 

0 


0 522 

0 502 

1 Ml 

0. 151 

0 SOS 

0 

100 

0 

502 

0 152 

0 

fiOS 

0 1SS 

0 SOS 

2.000 

0 (01 

0 572 

0 

■no 

" 

50S 

0 IS2 

0 

55l • 

0 no 

0.570 

:s (MM) 

jo 510 


1 ) 

550 

0 

5SO ( 

0. 1 10 

0 

502 

0 421 

0 57 1 

In lino: 












1 250 

0 5 is 

0 502 

0 

275 

0 

l»OS 

0 KM) 

0 

701 

00055 

0 752 

1 500 

0 507 

0 5S0 

(1 

250 

0 

020 

0 101 

0 

702 

0 (I07S 

0 711 

2 000 

0 ns 

0 570 

0 

200 

0 

002 

0 220 

0 

052 

0 10 s 

0 OIS 

.1 000 

0 200 

0 001 

0 

557 

0 

5S 1 

0 571 

0 

5SI 

0 2 so 

0 DOS 


r i . *= si./ 1) 0 \ Jr = st/ !/„■ 


In the 4L23 engine there is one row of heater tubes. In the P-40 engine there 
are two rows widely separated. Assume that the pitch to diameter ratio is 
1.25* That is, each tube is separated from the next by a space ^ the outside 
diameter of the tube. Assume that the transverse pitch is large, say, 3 
times the outside diameter. Also, assume that the heated length includes the 
front and back row ar.d negligible for the bend. Thus, the gas heater 
minimum flow area is: 


AMF = =^~- * * NTH * 4 

^ cylinders per engine 

= DOH * LHH * NTH/2 

Therefore, the maximum mass velocity is: 

GMAX = CFF * (RAl)/AMF 
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At 1000 K the viscosity of air 1st 

-4 

M f v 6 x 10 g/cm sec 
and the thermal conductivity 1st 

k f - 7 x 10~ 4 w/cm K 

Therefore, by substituting into the equation from Table 4.2 and simplifying, 
the heat transfer coefficient is found to bei 

UH ' ‘aiA^OOof ' ** °' 592 * 0.00022/LOK 

It is also not necessary to evaluate the heat transfer coefficient every 
time step since it changes little so it is grouped with the evaluation of the 
heat transfer coefficient for the air side and is only re-evaluated when the 
flow changes appreciably. 

Each part of the engine may have a different heater temperature depending 
upon what is going on inside. However, it is assumed that ^ of the flame 
passes through each of the four engine sections. For each section the heat 
transfer can be expressed two ways (see Figure 4.13) * 

By temperature change t 

H = HT * RA1 * CTFG * (FLAME - T3A(Y)) 


And by heat transfer i 


Let 


X = (1M(2,Y) + r m(3,Y))/2 


H = UH * AH * 


(FLAME - X) - (T3A(Y) 
n / FLAME - X T 
ln \T3A(Y) - X ) 


X 1 


Combining the above two equations gives t 


T3A(Y) = X + (FLAME - X)/XH 


where 

XH = exp | 

UH * AH * 4 \ 


CFF * CZ ) 


AH = PI * 

DOH * LHH * NTH 


CZ * CPFG 

* RA1 


If the argument of the exponential is greater than 32 it is made 32 to pre- 
vent overflow in the computer. 


\ 
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DISTANCE 


Figure 4.13. Gas Heater Heat Transfer Scheme. 

All the above explanation is necessary to show how the heat transfer factor, 
XH, is computed and used. The programming iss 

■V?;: r HF*T TPflNSFFP FftCTnp. GflS HERTEP 

•13' ijh- • r.OH'* •' FF ♦ PR i.-'AMF. 1 RROF • ^92 + 0 00022/DOH 

.tat 4 +i ih 4 9H, •fTCFff". 

1 T fr . 1 ;--^2 

4 ,j ' : ■ :h~e: :F' • 

Every time the heat transfer factors are calculated the flow bounds must 
be recalculated. 

4 v,' r PESFT FLOW POUND? 

•IR'? ''FH-i 2*C tr f r 

4R : ' CFL-0 8*iTFF 

4. 2. ?.4 Air Side Temperature Calculation 

Now that the heat transfer factors are calculated ( if they l*ave had to be) , 
the temperatures through the air and flue gas circuit can be quickly deter- 
mined. In tins calculation it is assumed that the thermal lag due to heat 
capacity of the metal parts is so important that the added complication of 
figuring transit tines for the gas around the circuit is not necessary. 
Therefore, steady state tern per at Lire s are calculated for the gas side. Cal 
culation starts with ambient air at the Inlet to the air preheater and works 
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around the circuit. First, the air temperatures in the preheater are calcu- 
lated sequentially as has already been explained. 

500 C CALCULATE APH AIR TENPERAUPES 

501 420 DO 427 I =1, N 

502 427 TIN< I+1>«EX' I >-<EX< I >-T!N< I > >/XV 


2. Burner Calculation 


Next, the preheated air enters the burner. The temperature rise is given by 
the equation 

LHV * 1000 * CFF = CFF * (RAF + l) * CPFG * DT2 

heat supplied by heat absorbed by flue 

fue] combustion, gas temperature rise, 
watts watts 

which reduces tot 


DT2 


LHV *1000 
(CPFG) * (RAF + 1) 


LHV = lower heating value of fuel = 46.432 Kj/g 
= 20,000 BTU/lb 

CPFG = heat capacity of flue gas = 1.20 j/g K 

RAF = ratio of air flow to fuel flow, j/g 

(RAF + l) = ratio of flue gas flow to fuel flow 

CFF = current fuel flow, g/sec 

DT2 = temperature rise in flue gas temperature 
(neglecting disassociation) 


Note that DT2, in the simple way it is calculated here, neglecting disassoci- 
ation and heat loss through burner insulation, is not dependent on flue flow. 
DT2 comes from CNTLA, line 671. 


507 

504 


C FIND FLAME TEMPEPATUPF 
FLAME=TIN*' N+1'*+0T2 


4. 2. ?. 6 Heat Transfer to Gas Heaters 

Next, the four effluents from the heaters axe calculated as has been explained. 

505 C DETERMINE OUTLET FLUE GAS TEMP FROM HEATERS 

506 DO 477 1=1,4 

507 X* < TM < 2 ■ I> + TM < 7, I> > , *2. 

508 477 T7A < I ' =X+ >' FLfiflE-X ) ,‘XH 


The flue gas temperatures are averaged and the one outlet temperature, 
T0U(N+1) , is obtained. 

509 C AVERAGE FLUE GAS TEMPERATURES 

510 TOU < N+l > « < T7A < 1 > +T2A <. 2 '»+T7A < 7 > +T7 A • 4 > > /4 
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4.2 .7.7 Flue Gas Side Temperature Calculation 

Finally, the flue gas temperatures down the stairsteps of the air preheater 
are calculated as has been explained. 

511 c e::it fuje GRS TEMPERRTUPES THROUGH ptr ppeherter 

c; 12 D0446 I -- 1 ■ N 

512 L=N-I+1 

514 44F TOU ^ K '• =EX »' K > + •' TOU •' K+l > -EX < K > '< /XZ 

4. 2. 7. 8 Metal Temperature Adjustment in Air Preheater 

Next, the metsil node temperatures In the air preheater must be adjusted for 
heat transfer and conduction. For the first node the heat lost, in joules, 
to the air isi 

X = CFF * RAF * CPA * (TIN(2) - TIN(l)) * DT 
The heat gained from the flue gas is« 

Y = CFF * RA1 * CPFG * (T0U(2) - TOU(l)) * DT 
The heat gained by metallic conduction is» 

ZZ = KM * (TMAPH * NAPH * NAPH * 2) * 

ZZ = KAPH * (EX(2) - EX(1)) * DT 

The heat capacity of most metals on a volume basis is about 
500 j/cm-'K. Thus, the heat capacity in each metal node isj 

LAPH * WAPH * 2 * NAPH * TMAPH * 5.00 

CMAPH = no 


* DT 


the same, 


(EX(2) - EX( l ) ) 
(LAPH/NO) 


Therefore, a heat balance on the first metal node ls« 

CMAPH(EY( l) - EX( l)) = ZZ + Y - X 

Therefore, the metal node temperature at the end of the time step isi 

EY(l) = EX(l) + (ZZ + Y - X) /CMAPH 

This derivation is different for the middle nodes and the other end nodes 
but the concept is the same. It is assumed that the air preheater metal is 
not connected to any other heat source or heat sink except the gases flowing 
through it. Based upon the above explanation the following programming 
calculates the new air preheater metal node temperatures. 
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515 

C 

516: 


51? 


518 


519 


520 

450 

521 

448 

522 


522: 

449 

524 


525 • 

451 

526 : 

452 

527: 

420 


CHANGE APH METAL NODE TEMP DUE TO CONVECTION AND CONDUCTION 
DO 420 1*1, N 

X=CFF*RAF*CPA* < T IN< I +1 >-T IN (I > '• *DDT 
V=CFF*PAi*CPFG*<TOI K I+l>-TOU< I > > *DDT 
IF<I-1M48. 448, 450 
IF <1-8 >449, 451, 451 
ZZ=KAPH* < EX < I +1 > -EX < I >>*DDT 
GOTO 452 

ZZ*K APH* < EX < I +1 > -2. *EX < I > +EX < I -1 ^ > +DDT 
GOTO 452 

ZZ=-KAPH*<EX>' I > -EX <1-1 > -> *DDT 
CONTINUE 

EV*' I '--EX< I > + < ZZ+Y-X > /CMAPH 


4. 2. 7. 9 Metal Temperature Adjustment in the Engine 

Five metal nodes in each of the four parts of the engine float in temperature. 
They receive and give up heat by conduction and by being heated by the 
heater all the time. This part will now be explained. 

Each node as shown in Figure 4.9 is a special cane but the formulation for 
calculating the same node in the four parts of the engine is the same. The 
calculation for each engine metal node will now be explained. 

Metal Node 1 is the metal around the hot spat-, half the way to the water 
cooled portion of the engine cylinder. The thermal conductance to the 
cooling jacket is: 


mi?/ . X _ KM * PI ♦ DCY * (TCY + THC) 

KMEU; HCL 

KME(l) to KME(6) are brought over from CNTLA. 

The thermal conductance from the heater is: 

KM * PI * DIHM * WTHM * NTHM 

KMEU) = ^ 

The heat capacity of metal node 1 also involves the same specific heat capa- 
city of 5.00 j/cm^K. This heat capacity in j/K degree change is computed as 
follows: 

The metal volume of the end caps is: 

X = PI4 * DCY ** 2 * (THH + TCHC) 

The metal volume of the cylinder wall belonging to the node is: 

Y = PI * DCY * (TCY + THC) * HCL/2 
The metal volume of the heater manifold belonging to the node is: 
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ZZ - PI * DIHM * WTHM * NTHM * LHM/2 
Thus the nodal heat capacity isi 

CM ( l) = (X ♦ Y + ZZ) * 5.00 
CM(l) to CM (5) is brought over from CNTLA * 

In the calculation the metal node temperatures will be changed once due to 
flame heating and metal conduction and then later in the program due to 
Internal heat transfer. One must liave two sets of metal node temperatures. 

Each temperature figures in several equations. It would not do to mix new 
and old temperatures in the calculations. In metal node 1, for the time 
step DDT, the heat lost to the cooling jacket isi 

A KME(l) * (TM(1,I) - TWI) * DDT 

The heat gained through the heater manifold isi 

B = KME(2) * (m(2,l) - TO(I.I) * DDT 

Thus, a heat balance of metal node 1 gives 1 

CM ( 1 ) * CTM 1(1,1) - TM ( 1 , 1) - E - A 

Therefore, the new metal temperature due to one time step's worth of conduction 
isi 

Note that the 1 represents the foia - cylinders, wtiich will lave different 
internal heat transfers. 
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In metal node 2 the heat loss In joules for the time step DDT to node is 
already calculated as B. The heat loss to metal node 3 by conduction isi 

A = K.ME(3) * (31(2, 1) - 1T1 (3,1)) * DDT 

The heat gain due to flame heating 1st 

C = [^ * RA1 *CPFG * (FLAME - T3A(l))j * DDT/2 

since half of the heat from the flame is assumed to go to node 2 and half to 
node 3* Therefore, by a heat balance 

CM (2) * (TMl(2,I) - 31(2,1)) -- C - A - B 

Thus, the new temperature on metal node 2 after one time step's worth of 
conduction and external heat transfer isi 

TOl(w,I) = 31(2,1) + 

e-.TT. nr . - . ♦ . Tf-v , j v-tm. T . T '• '• ♦t , T ,T 

574 - 4 *P*J ♦CPF'!* 1 FLAMF-TTP* T > ■♦Cf'T V2 

TM1/2 I ‘•sTM*': 1 I • + < r-ft-p CM 1- 


Metal node 3 is centered at the junction between the heater and the regenerator 
manifold. It includes hall' *.he heater and half the regenerator manifold. 
Pertaining to it are thermal conductance KME(3) already defined and KME(4) 
along the regenerator manifold. Thusi 

KME(4) = XM * PI * DIRM * WTRM * N3irl/LRM 

The heat capacity of this metal node involves the other half of the heater 
metal volume already calculated as X and half of the regenerator manifold 
metal volume. Thusi 


Y = FI * DIRM * WTRM * NTOK * LRK/2 
Thus the nodal heat capacity isi 

CM (3) = (X + Y ) * 5.00 

In this node the heat gain by conduction from metal node 2 is already cal- 
culated as A. The heat gain due to flame heating is already calculated as 
C. The heat loss by conduciicn to metal node 4 isi 

B = KME(4) * (TK(3,I) - 3l(4,l)) * DDT 

Therefore, by a heat balance 

CM(3) * (TM1(E,I) - 31(3,1) = A + C - B 

Thus, the new temperature of metal node 3 after one time step's worth of 
conduction and external hjat transfer isi 
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0110,1) - 01(3,1) ♦ -cff^r- 6 

r-£ F -KME • 4 > ♦ • TM' ?. I I * •«f-DT 

r ,“ - Tf.i I ( - I , ,-TM "■ , T .4. . e.+c -r , ,r r^ - 

Metal node 4 is centered at the hot end of the regenerators attached to each 
cylinder. It Includes the heads on the regenerators, half the regenerator 
manifolds, and one quarter of the regenerator matrix and one quarter of the 
regenerator wall. Pertaining to It are thermal conductance KME(4) , already 
defined, as well as KME(5) between the hot end and the middle of the regener- 
ator. Thust 


KME(5) - KM * PI * DR * RWT * NR/(Iil/2) 

+ KMX * FI4 * DR ** 2 * NR/(LR/2) 

The heat capacity of the metal node Involves the other half of the regenera- 
tor manifold volume already calculated as Y. The volume of the regenerator 
heads 1st 


X - Px4 * (DR + RWT) ** 2 * TRH * NR 

and the metal volume of the regenerator and surrounding cylinder wall . 
Thus i 


ZZ = PI * DR * RWT * LR/4 + PI4 *DR ** 2 * LR/4 * FF 
Thus, the nodal heat capacity isj 

CM (4) = (Y + X + ZZ) * 5.00 

In this node the heat gain by conduction from node 3 is already calculated 
as B. The heat loss by conduction to the middle of the regenerator lsi 

A = KME(5) * (TM(4,I) - TJ1(5,I) * DDT 

There is no external heat transfer in this node. By heat balance 

CM(4) * ( IM 1(4, 1) - 1M(4,I) - E - A 

Thus, the new temperature of metal node 4 after one time step's worth of 
conduction is« 


1111(4,1)= TM(4,I) - 

• V* ♦ ' Tf'K 4 . y I , . ff;.DT 

T M1 • 4 . I .-tTM*'4 I ./CM 1 4^ 

Metal node 5 Is centered at the center of the regenerator and includes the 
middle half of the regenerator. Pertaining to it are thermal conductances 
KME(5) between the hot end and the middle of the regenerator and KME(6) 
between the middle and the cold end of the regenerator. Since dependence of 
thermal conductivity on temperature is being ignored, KME(6) = KME(5) . 
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The heat capacity involves half the metal volume of the regenerator and 
surrounding cylinder vail. Thus, the heat capacity for this node isi 

CM (5) - 2 * ZZ • 5.00 

The heat gain from the hot part of the regenerator is already calculated, A. 
The heat loss to the cold part of the regenerator isi 

B = KME(6) * (TK(5,Y) - 7M(6,0)* DDT 


By heat balance 


CM (5) * (TMu5»Y) - TM(5,Y)) - A - B 


Thus, the new temperature of metal node 5 after one time step's worth of 
conduction isi 

YM 1 (5,Y) = TM(5,Y) ♦ 

549 P*K*C •' € > + •" TM • 5 . I >-TM I • •> ♦DM 

541 4S4 TM5 ■ '5 . I'.=TM*'5. j R-p'./rr-K 5 •) 

The value TM(6,Y) is always equal to IMI . 


4.2.7.10 Index Meta' Temperatures 

At ♦Ms point the new engine metal node temperatures, TOl(X,l) are trans- 
ferred to the old metal node temperature TM(X,I) which is displayed. When 
the engine rotates, the metal temperatures 1M(X,I) will be changed once 


again. 

However, 

this time new and old metal 
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DO 42F 1=1 4 
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fONTTMUF 

4.2.7. 

11 

Average Temperatures 


Finally, average metal temperatures between the metal node points must be 
calculated. These temperatures also become the gas node temperatures for 
the isothermal section of the engine. 

54* 1 * 9vcx*^r,c ?.iFT9! ^rupcC'CiTi i&r r rr.c * -riTMrp'.v-M ijnr.rc 

*•4 ’- 1 D r> ; 1 u 

-.r -r- 1 g 

cr -.l Tf1 |T,. : T , - TM, l T ,4-TM. t _ 1 T . , •* 

'"S TMC|. - T , TM, r. T . 

c, ~r -.*i r ntjTpji if 

rr.i r*.*** r*jr. r,r Piiojfrc- Mfjr, i^pmt r.» >r rr t ^ .»j .-,1 i;ctr,rcMM 
4.2.8 Engine and Veidcle Control Subprogram (EVSC) Tart 2 


Part 2 does one thing. It tests flag IG1. If the engine shc-JLd be stopped, 
it returns to the unified read out (see Section 4.2.4) . I f it should be 



going, it goes on to the next section. 


555 O****C0NTR0L PROGRAM PART 2 

55 f . C TEST FLAG TO DECIDE WHETHER TO GO ON TO NEXT SUBPROGRAM 

557 IF*' IGl-i>401, 425, 425 

4.2.9 Engine Torque and Internal Heat Transfer Subprogram 

The engine calculation subprogram calculates the torque generated by the 
engine for the conditions of temperature and pressure in each of the four 
engine spaces and for the engine speed at the time. In order to speed up 
the calculations, the following simplifying assumptions are madei 

1 . The gas pressure in each engine space is uniform . 

2. Internal heat transfer between the gas and the solid is perfect in 
the heater manifold, heater tubes, regenerator manifold, regenerator 
and cooler . 

3. There is no heat transfer between the gas and the solid in the hot 
space and in the cold space and in the cold manifold. 

4. The regenerator metal temperature is initially assumed to be linear, 
but during operation the midpoint metal temperature is adjusted 

so that the net heat transfer to the regenerator (metal node 3) 
is zero . 

3. The metal in both the heater manifold and the regenerator manifold 
is assumed to have linear temperature gradients. 

The calculations in this subprogram proceed in the following steps. Each 
will be explained as needed followed by the applicable program segment. 

Step 1 - Calculate New Engine Volumes 

The engine volumes for each compartment depends upon the engine angle EARAD . 
This angle is determined from the last engine position and the angle incre- 
ment, DANG, derived from a to?.*que balance and assessment of acceleration. 
This step gives all the variable volumes for the four working spaces and the 
tcta] volumes for each working space. Figure 4.14 shows the spacing between 
the cold end of each cylinder and the cold end of each piston for somewhat 
more than one cycle. Note that at 0 degrees, cylinder 1 (Xl) has the power 
piston at the cold end. Then at 90° engine angu ■, cylinder 4 has minimum 
cola space. At 180° cylinder 3 has minimum cold space. At 270° cylinder 2 
has minimum cold volume. 

In the Siemens arrangement which is used in the 4L23 engine as well as all 
the United Stirling machines, the hot end of one cylinder is connected to 
the cold end ol the next through the heater, regenerator and cooler. Figure 
4.. 4 and Table 4.3 shows how they are connected. 

Daiiele and Lorenzo (4) have indicated that gas cam only be added to or 
removed from each working space through a timing slot in the drive rod. 

For the purpose of this program it was assumed that these timing slo+s 
would be full open 43° before and 45° after bottom dead center . Thi ' s 
the reason for the addition, removal schedule giver, in the explanat. . 
of the engine and vehicle control subprogram. 
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Figure 



Table 4.3 

ENGINE SPACE NOMENCLATURE 


Working Space 

Hot Space Cylinder 

Cold Space Cylinder 

Number 

N 'amber 

Number 

1 

1 

2 

2 

2 

3 

3 

3 

4 

4 

4 

1 


The quantities XI to X4 graphed in Figure 4.14 axe calculated from the for- 
mula for a crank operated piston (5) . From these the variable volumes in the 
hot space, VHA(X,Y), and in the *old space, VCA(X,Y) are calculated. 


55? 

C++'* 1 *- ♦ENG INF TOPOUF AND TNTEPNfli. HFPT TRANSFER 

559 

r STEP 

1 — CALCULATE NEW ENGINE VOLUUb 

560 

425 

XI =SOPT CXA-'PC fSIN 1 ' ERPRP' 1 '• ♦ ♦ 2 , -P | * ♦■COS* EflPRC 1 • 'p 

561 


• '?-SOPT^XR-i' PC *6 IN' ERPRr*>PT2 ■ '• ♦ * 2"* -PC *CO , v'ERFRr , *F T *’ ■ ;c 

562 : 


X?=?RPT .'VR-. pr+'TTN 1 FRPRC'+PI '■ . **2'.-Pi' +'“0S , 'EAPA0- i PI v-vp 

56" 


X4 «S0PT •" Xfl- < PC^S IN*" ERPRD+P ! 22 '■ '• ♦+2'* PC +rn?.» pRpRr-*-pi“-2 

564 


vhrc 2, i>*flcv*<pr2-xi •+ , .*hd:-: 

565 


VCR-2. 1 > =BCVfj:2+ VCDR 

566 


VHR < 2-2' =RCV+ • PC2-X2 1 +VH0X 

567 


VCR < 2 • 2 '• =BC V*X3+ VCPR 

568 


VHA<2, 3 > =RC V+- •' RC2-K? '+VHP-X 

569 


VCR v 2 3 > =BCV*X4+VCDA 

570 


VHR <24 > =RCV+ < PC 2-X4 '• + VHt-X 

571 


VCR < 2 • 4 '• =BCY*XH VCC'R 

572: 


[-0 250 1=1.4 

573 


VT 2, r.=VTD+VHR<2, 1%+VCA' 2- I > 

574 

250 

CONTINUE 


Finally, in Step 1 the cumulative volumes are calculated from the variable 
and fixed volumes. Each cumulative volume is calculated from the hot end 
of the engine to a particular point in the engine. (See the nomenclature.) 
Volumes recorded this way are needed later in the calculation. 


575 

C CALCULATE NEW ENGINE SPACE CUN'. 

576 


00 982 1=1, 4 

577: 


CVM<1, I >=VHR< 2> I> 

578 


CVM<2, I > =CVM < 1 ■ I -+VHM 

579 


CVM<3, I >=CVM* 2, I "> +VHD 

580 


CVM<4, I )=CVM<3, H+VFM 

581 


CVM- 5, I > =CVM *' 4 • T - +VPC-/2 

582 


CVM<6, I '*=CVM , '5, I '• +VPD/2 

583 


CVM<7. I > =C VN f 6 • I '•+VC0 

584 


CVM*'8. T >=VT<2, I> 

585 

982 

CONTINUE 


VOLUMES 
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Step 2 - Calculate Effect of Control 


In this version of the program the control method is by adding or removing 
gas. The control subprogram computed a new pressure, PX, for a particular 
working space, IG3. (See lines 856-879*) Step 2 calculates the effect of 
this action on the engine torque and heat transfer. 

The first thing is to calculate Y, the ratio of the volume now occupied by 

the gas originally in the working space for which pressure has been adjusted. 

This is done assuming the total volume is adiabatic. Next X, the volume of 
gas added, is calculated. If X is negative, gas has been removed. 

86 C STEP 2 — CHANGE IN GAS VOLUMES. TEMPERATURES AND GAS NODE INVENTOR IE 
ft? C OF WORKING SPACE THAT CRN HAVE ITS GAS INVENTORY ADJUSTED X= 

88 C VOLUME OF GAS ADDED < + > OP REMOVED AT CURRENT PRESSURE AND TEMP 

88 C FOP THAT WORDING SPACE 
90 V-' Plv I r .3>/PX>**KP 

91- X=VT ’ 1 I GT- + • 1 -Y> 

If gas has been added, then the temperature of the added gas is first cal- 
culated by assuming that the gas enters at cooling water temperature, TWI, 
and original pressure, Pl(lG3) and then is compressed adiabatically to pressure 
PX. Next mass added, M2, is calculated from the perfect gas law. This pres- 
sure change affects all gas node temperatures for the adjusted working space 
since in this part of the calculation no heat transfer is allowed. Finally, 
the temperature of the cold space is adjusted because of the gas added. 


592 

592 

594 

5^5 

596 

597 

598 
590 
600 
601 
602 
602 
604 


C GAS INVENTORY CHANGE 

if > 102.. i0i ■ 101 

C TEMP OF ADDED GAS 

101 VV=TWI ♦ • PX/PiaG2> >++GA 
C MASS ADC ED 

M2=PX+X/<VV+XC> 

C NEW TEMPERATURES DUE TO INVENTORY CHANGE 

102 77-’ F’Xi'F‘1. 1 1 1 j? • * ++IjA 
DO 807 K=l' 8 

807 TGA' I L. IG2' ''“TijAv l. L ■ IG.' 1 +ZZ 

r ADJUSTMENT OF COLD SPACE TEMP WITH GAS ADDITION 

I F < X GT 0-'TGR''l, 8. IG3>«<TGA<1. 8, IG2>*W<1, 8- IG3 
1 a i-'l, 8. I G3 '• +M2 '■ 


+YY+M2). ' 


After the old pressure Fl(lG3) is utilised for everything it needs to be, it 
is updated to the new pressure PX . 

605 C NEW PRESSURE DUE TO INVENTORY CHANGE 

606 P1<IG3>*PX 


Next the cumulative volumes and the gas node inventories for the working 
space which is having its pressure changed ( IG 3) must be adjusted. The 
process is different depending on whether gas is added or removed. If gas 
added (X is greater or equal to zero), the cumulative volume of all the gas 
nodes except the last are reduced by the factor Y which in this case is less 
than 1. The total volume, CVG(8,IG3) does not change. The gas masses 1 to 
7 do not change since all the added gas goes into node 8 . 


607 

C NEW 

608 


609 

C GAS 

610 

801 

611 

802 

612 


612 



CUM VOL AND GAS NODE INVENTORIES DUE 
IF<X>800, 801, 801 
ADDED OR NO CHANGE 
DO 802 K=l, 7 
CVGCK, IG2>=CVGCK, IG2>*V 
MCI, 8, IG2>=WC1, 8, I G2 > +M2 
GOTO 802 


TO GAS ADDED OR REMOVED 


If gas must be removed, any number of gas nodes can be removed and the re- 
maining nodes can expand to take up the space. In this case Y, the volume 
ratio is greater than 1. Each cumulative volume is expanded by this ratio. 
However, when the cumulative volume CVG(K,IG3) first becomes greater than 
the total volume for that working space, CVM(8,IG3) ,then the mass of gas in 
this node is reduced depending upon the volume of this node still in the work- 
ing space (lines 620 and 621J . The total cumulative volume for that inter- 
polated node becomes the total volume (line 62 5) • Flag ZZ is used to make 
all subsequent gas nodes to have zero mass (line 624) and a cumulative gas 


volume 

equal to 

the total gas volume. 


614 

C GAS REMOVED 


615 

800 

22=1. 


616 


DO 804 K=l, 8 


617 


CVGCK. I G2 > =C VG < K IG2V+V 


618 


IRC CVGCK, I G2 > -C VM C 8 . IG2'* 

•>9.04, 904 806 

619 

806 

IF •'22 >102, 102. 104 


620 

104 

MCI, K. IG2>=l*Kl, K, I G7 > * C C 

VM C 8, IG3"'-CVGCf 

621 

1 

C CVGCK, IG7 >-CVGCK-l, IG2> 

‘l 

622 


22=0. 


677 


GOTO 105 


624 

107 

I'K l. K, I G? > =0 


625 • 

105 

rvGCK. IG7 ■=CVM , '8. !>""• 


626 

804 

CONTINUE 



Finally, the new total mass for the working space must be re-added. 

F2? i* RE-ADD MASSE? 

£28 A07 M<” TGT'*" 51 ’ 1 

£78 DO 118 K-±. 8 

670 1 19 r-i ■' I G2 '• --M C T G2 • ■*-!,,• ' i f 1 07 '< 

For the case of gas being added the new value of M(lG3) has been calculated 
in line 597. 


Step 3 ~ Volume Change--No Heat Transfer 

In this method of analysis the process which occurs in the engine simul- 
taneously is broken up into equivalent sequential steps. These ares 

Step 3 - Volume Change with No Heat Transfer. Find the volumes of the 
gases that originally occupied each engine space before the volume 

change in Step 1. Find the temperature that each of the original 
nodes of gas now has due to an adiabatic expansion or compression. 
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Step 4 - Redefine the gas nodes due to gas flow. Find the mass and the 
mass average temperature of the gas now occupying each one of the gas 
spaces. 

Step 5 - Allow heat transfer to take place In each one of the gas 

spaces If It is e apposed to. To simplify calculation In this program, 
the hot and cold variable volume spaces are assumed to have no heat 
transfer and the other spaces are assumed to have perfect heat 
transfer. The heat transferred in each node goes to change the 
temperature of the metal nodes or is absorbed by the cooling water. 

No gas flow between nodes Is allowed during this step so the heat 
capacity at constant volume is the proper one to use for the gas. 

Step 6 - Due to heat transfer in Step 5 each node will have a different 
pressure. Step 6 calculates those pressures. 

Step 7 - The ficticious barriers that have separated the nodes during 
Steps 5 and 6 are now removed. All gas nodes in each working space 
are allowed to come to a common pressure again. Step 7 calculates 
this common pressure. 

Step 8 - The process of adiabatic pressure equilibration in Step 7 
changes the temperature in each gas node. Step 8 calculates these 
final gas temperatures and prepares the calculation to srart through 
for another time step. 

Now that the overall process has been explained, Step 3 will now be explained 
in detail. 


The temperature- volume relationship for an adiabatic process is: 


T 

1 D 




k-1 


In the calculation CVG(8,l) is the original total volume for the Ith work- 
ing space and CVM(8,I) is the new total volume as calculated in Step 1, 
line 58^ • After the new temperatures are calculated (line 639) » all the 
cumulative gas volumes are adjusted proportional to the total gas volume 
change (line 64-2) . 
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Step 4 - Computation of Mass Average Temperature and Mass of Gas Now in Each 
Engine Space Due to Gas Flow 

Because of the volume changes and the adiabatic temperature changes like 
those shown in Figure 4.14 and because of gas inventory changes for control, 
there is mass flow. 

It was found by experience that because of gas inflow for control that the 
programming must be able to handle mass flow across any number of nodes. 

That is, during one time step so much gas can be added to the cold space to 
push all the original gas into the hot space. 

One of the important features of the program that was used as a model for 
this program was that the temperature was to vary linearly inside the gas 
nodes that were originally in the dead volumes of the engine. Tills idea was 
programmed and debugged but it was found that after' several time steps, 
situations would develop which would result in a negative mass being assigned 
to a gas node which would result in a negative absolute pressure for that 
node. Since flow tnrough several nodes during one time step will create cer- 
tain Inaccuracies, it was decided to simplify the programming and have all 
the gas in each gas node have an average temperature instead of a linear 
temperature gradient. 

In order to be able to handle mass flow across any number of nodes, il was 
necessary to have a nomenclature where the volumes of the gas spaces are 
expressed as cumulative volume from the hot end. For instance, CVM(2,l) 
is the cumulative volume from the hot end to the interface between the 
heater manifold and the heater for the Ith working space. (See Figure 4.15.) 
The metal node temperatures TMCljl) to TM(6,I) have already been discussed. 
TM(6,l) is fixed at the cooling water temperature TMI All the other metal 
nodes float in temperature due to heat transfer by conduction and convec- 
tion. During Step 4 it is convenient to define an average metal temperature 
for each part of the working space that transfers heat. For this purpose 
TMA(2,I) to TMA(7,I) are defined as midway between the metal node temperatures 
(see Figure 4.15) . 

At the start of the time step the gas nodes shown in Figure 4.15 all have 
the same volumes as the metal nodes. Up until new the mass in all these 
gas nodes lias not changed except addition or removal of gas for control. 

(See Step 2.) However, because of motion of the pistons and gas inventory 
change, flow has taken place. During the time step up till now no heat 
transfer has taken place between the working gas and the metal so the tempera- 
ture of the gas nodes will now be different from the metal nodes. In 
Figure 4.15 an adiabatic compression is assumed so that the temperature of 
all gas nodes is higher. However, the general shape of the temperature dis- 
tribution is retained. For instance, in this particular program, the gas 
originally at TMA(2,I) .attains the temperature TGA( 1,2,1) . (See Step ),) 

Now with the cumulative volumes in arrays and the temperatures also in arrays 
one can program a general case that will determine the mass of gas in each 
engine space after mass llow and the mass average temperature of that gas. 

To start out the programming one must start the main do loop for the four 
working spaces. 
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Figure 4.15. Nomenclature for Step 4. 










644 STEP 4 — COMPIJT AT I ON OF TEMPERATURE AND MASS NOW IN EACH 

645 C ENGINE SPACE DUE TO GAS FLOW BUT NO HEAT TRANSFER 

€46 C THIS VERSION ALLOWS UNLIMITED MASS FLOW DUPING ONE TIME STEP 

£47 r CALCULATE FOP THE 4 WORKING SPACES 
€48 DO 280 T“l, 4 

Next, two flags are initialized to 1. The K flag keeps track of the solid 
nodes and the L flag, the gas nodes. This arrangement is needed so that any 
number of gas nodes can be packed into a solid node or a gas node can be 
spread out over many solid nodes if required. 

€4? C LET K- SOL ID INDEX AND L=GAS INDEX 
€50 K-i 

651 L"1 

Then the gas inventory array at the end of the time step W(2,X,l) and the 
average gas temperature array at the end of the time step are zeroed. 

C ZERO OUT MASS APPAV AFTER MASS FLOW 
65? • DO 248 11=1 8 

654 TGA' 2. 1 1 ■ I ''=0 

exs ?4 Q W < 2 II I "• =0 

In apportioning the masses it was found that the first time through a parti- 
cular part of the program was different than the next time. Therefore, a 
second time flag was found necessary. This is initialized. 

€56 •' SET SECOND TIME FLAG 

657 1 1 =1 

For each working space we start with the first gas node and the first metal 
node. We keep adding nodes to the one with the least volume until both gas 
and metal have 8 nodes. When this is so, the program for that working space 
is complete. The decision point compares the cumulative volune in the gas 
for L nodes to the cumulative volume in the engine metal for K nodes. The 
cumulative gas volume can be less than exactly equal to or greater than the 
cumulative metal volume. 

658 C RETURN POINT OF DECISION TREE 

658 “48 I r < C VG CL- I '■ -CVM < K. I ' '-245, 246 ■ 247 


Now the three possible cases will be discussed in the order they appear in 
the program. We will first discuss the case when the cumulative gas volume 
is less than the cumulative metal volume. For instance, take the case where 
K = 1, L = 1 and II = 1, initial case with gas compression. 
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In this case Y f W(2,K,I) = 0. The new average temperature TGA(2,K,I) is 
simply TG(1,L, I) . The L or gas index is incremented. If L is greater or 

equal to 9, the solution is completed. If not, the solution returns to the 
top of the decision tree (line 659) • 


660 : 

C***+ CUM. GAS VOL LESS THAN CUM METAL VOLUME 

661: 

245 

I Fan 754, 254. 255 

662: 

254 

11=1 

662 : 


W(2, K, n=PM 

664 


TGA<2, K, n=TGA<l, L, I> 

665 


G0T0258 

666 

255 

Y=W<2, K, I '• 

667 


W<2, K, I >=W<2. K, I >+W<l, L . T '• 

668 


TGA<2, Y'> n = - TGA' 2, V ■ T '•*Y-*-TGA< 1 • L, I > ♦W 1 L • DVI'K’.r, T • 

669 

758 

CONTINUE 

670 

C INDEX 

GAS NODE FLAG AND RETURN 

671 


L=L+i 

672: 

C CHECK 

FOR END OF MASS FLOW CALCULATION 

677 


I F- l. GE ? > GOTO 710 

674 

C RETURN 

675 


GOTO “48 

If the 

next time 

through the cumulative volume of the gas is still less than 


the r.ietal space it is filling, in this case the hot space, the calculation 
still goes through the same parts of the program . 



Now this time through W(2,K,I) is the macs of gas in the hot space with the 
first two gas nodes being considered. 7CA(2,K,I) is the a/erage temperature 
in the hot space so far . 

The other half of the programming given above (lines 659-663) cannot be 
entered from the beginning of the calculation. During the caicula 4 ' on , 
addition of a metal node makes the metal node cumulative volume greater than 
the gas node cululative volumes. 

CVG(L, I) 

H 

CVM(K-l.I) CVM(K.I) 

— *1 1 
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When this happens, the flag II is set to zero (see line 723) and the calcula- 
tion enters this other part of the program. A new mass W(2,K,l) starts to be 
accumulated by the addition frst of residual mass or the gas mass hanging 
over when the gas in node K-l was completely calculated. The average gas 
temperature calculation is e.lso Initiated with the temperature of gas node L. 

L is indexed by one and the calculation may come back through again. 

If the next gas node still makes CVM(K,I) > CVG(L,I) as in the sketch below, 
then the calculation goes back through lines 666-669 because now II = 1 . That 
is, it is the second time for the new metal volume node. This programming 
adds to the calculation of the mass and the average temperature in a parti- 
cular engine volume but never finishes it. 



CVG(L-l.I) CVG(L.I) 

1 1 

CVM(K-l.I) CVM(K.l) 


The cumulative volumes may sometimes be exactly equal during the calculation. 
Quite often when both K and L are 8, the cumulative volumes will match 
exactly. Generally, thin programming is 'the same as previous programming. 

The first time flag is set to 1 and both K and L flags are indexed. The 
calculation is ended if K or L ;cre greater or equal to 9. In most cases 
both would be 9* 
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The final possibility is that the cumulative gas volume can be greater than 
the cumulative metal volume. The way the programming was done there is a 
special case when K L = 1 and a general case . 

For the special case as shown below, the mass W(2,K,l) is a fraction of 
W(l,L,I) based upon the volumes. The average gas temperature is transferred 
over directly. The residual mass is that hanging over. The second time 
flag II is set to zero and K is Indexed by one. 


*93 

C*+** run GO? VOL GFFOTFP TMRrj CUM MFTO! 

*** 

747 

revf' po i ono L F*' 1' GOTO "50 

-no 


r.rijn ti 

?<?1 

C FTP?f 

NOC'F FOP GO" PNT* "ETOL 

-07 

750 

!•: < p y T • -W 1 , L T • ♦OVM ' V T '• . T Vfi • l. T '• 

7ft* 


TOP-' 2 V. T '-TOO' 1 I ! "• 



PM=H-1 L I • -U ■' 7 y T • 

705 


GOTO 75" 

TuT 

C GFNFPOL oc| 5 F 

70- 

CHECK 

FIP--.T T ! MF FLAG 

70:? 

751 

IF-' I T ‘.-4“ 74' 74-1 

70-3 

C FIP'-T 

t t mf FOP NEI-I GO? nor-F 

710 

744 

pc.. rvM<K I >-r ViV'l . - 1 T CVG- L 

7! 1 


PM" 1 1 -PP • * 14 - l L T "• 

712 


: --ppfig. i . i . t , 

71" 


V- 4 -K 2.1 r- 

714 


LK2 ■ T ■' -H 1 7. F T 

715 


TG0--.7. Y, I • - •" T GO ■ 7 f ■ P'+v^TGO* 1 l ■ T • 

•’I ^ 


goto 757 

"17 

hFTFP 

THE FT 07 .T t i mf 

-jo 

74" 

PPr. < r vu -T, I — C VM • L - 1 T ■ r VG • 1. T ' - 

7 1 Q 


|,J. 7 l T , -CM. pc- 

770 


c-M^prj-i.j. 2 . V T "■ 

771 


TOO' 7 ! I • -TGP. 1 1 ’ • 

“» *, *i 

i .' . 

C PF?ET 

F T F FT FLOG ON GO" '••'Ol.UMF - ur,CT ‘! r, F 


- rr — 

t t -=n 

774 

C I Nt*E! ' 

FOL IT' NOr-F FLOG 

"75 


4 -*- 1 


r rHF'"V 

cop pjr. op Piru.i r qlci 11 RT T n N 

■1 »,•! 


tc.f GF ,=i '' oriTn ~in 


r ppT'ipN 

~*o 


GOTO ~ 4"' 
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Now for the text node K = 2 and L =- 1 and II = 0. 



Therefore, it would go through lines 71 7-? 21. RR is the fraction of the 
residual volume that is assignable to W(2,K, I) . Therefore, a new residual mass, 
RM, is calculated for that still hanging over. Gas temperature is trans- 
ferred across. 

During the course of the calculation. Indexing of L leads to the case whore 
CVG(L,K) > CVM(K.I) . Thus* 


CVG( L-1,I) CVGf L.I) 
CVM(K.l) 

1 


In this case (lines 709-71 1) RR is the fraction of W(l,L,I) that it takes 
to finish W(2,K,I). The rest is made the residual mass. The final a”erage 
gas temperature is calculated for that node using the mass and the average 
temperature up to that point and the new mass and average temperature. 

With all tills complicated programming for transferring masses during Step 4, 
there were many chances for error. Therefore, an error trapping routine is 
Introduced at this point which will stop the program .and print out some 
intermediate results if mass is changed during this step. All the masses are 
summed and compared with the previous mass sum. If the total mass is off by 
more than 0.1 gram, then it will write out the flow error and the working 
space it lias occurred in. Other Intermediate values are printed out to show 
the operator what the problem is. See the operator manual (Section 6) for 
additional details. This error tracking program was very useful in the de- 
bugging of tills program. 
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C FIND 

AND SHOW TOTRL MOST- RFTEP MR? 2 FI. OW 

721 

210 

x=o 

1 .. c 


DO 226 K=1 S 

722- 

226 

X=X-H-K2 K. I'* 

724 


eppfl =n-' i 

72*5 


TF.'AB«:.'‘EPPFI.%- l'>?yO TOO. 72? 

776 

22 ,;s 

WP I TE •' T 770 'EPRFL . I 

1 . < 

220 

FOPflRT*' ' FLOII EPPOP IS ' E10 4. IN Mi PK ING ?PRi‘E 

7 re; 


DO 1*57 ? 

71? 

lTC 

iJPTTE-' T 1^4 a i.j.'l ih I . |.|- 7 . f . I •• rvM* » !• rvij. f I 

740 

1 

T| jR’' 1 • K. T • . TGR •' 2 V, I '• 

741 

_D4 

FOPMRT I" 6F10 4 ‘. 

742 


STOP 

743 

:ro 

i* ONT I NUE 


S+«*p r j Change in Temperature of Gas and Ketal Nodes Duo to Heat Transfer 
with No Vcl.-iiie Ciiar.ge 


Note again tiiat metal nodes 1 to A float. That is , as they receive heat 
their tci perature rises; as they loose heat their temperature i alls . Also, 
note aga*n tiiat it is assumed th.it the gas ir; the heater manliolu, neater, 
regenerator manifold. regenerator and cooler attain:’, the temperat ire ol the 
metal during this step. Tc simplify ealc.Jation the amount of heat trans- 
ferred to each metal node is colocated first. Then the metal rode tempera- 
tures are adjusted according to their heat capacity. 


The heat transferred i y .’hanging the gas ter porat.ro to the average temper. - 
tare of the ‘neater manifold i”. assuried to to trams! erred hall to metal none 1 
and half to metal node .:. Tne amount of heat tears:*! is. » used upon the gas 
mass now between the metal noue points. The heat capacity ol this gas. 
hiker; at constant volume. For ir.star.ee, t. no tern per.’ it an- drop lor rode . i;, 
from the temperat '.ire ol’ the gas calculated to it* .n the iter nun: ’.old at 
the end of 3tej a ar.d to the .uvei.tge temperature of metal nodes 1 and 


The heat received (or giver, up) ty the other metal .nodes is. computed sir.1 
lariv . Note tr.at this is. icing dcr.o for the for wcrkir.g spaces. 
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75? C HEAT received bv METAL NODE 5 

760 V=CV+M < 2. 6, I > + < TGft 2, 6, I > --TMA < 6, I > > /2 

761 0M<5>=X+Y 

762 C HEAT RECEIVED BV METAL NODE 6 

767 : X=CV*W<2- 7, I >*<TGA<2, 7, I >-TMA<7, I > >/2. 

764 0M*'6'<=V+X 

765 C HEA T PC CE I VED BV METAL NODE 7 

766 0M<7>*X 

Next, it is now assumed that th^ gas in each space of each compartment except 
the gas in the adiabatic spaces attains the average temperature of the metal 
in that space. 


C CHANGE IN AVERAGE GAS TEMPERATURES DUE TO HEAT TRANSFER 

DO 762 K=2. 7 

76? TGAC2. I >=TMA<K> I' 1 


Finally, the metal node temperatures are changed due to heat transfer between 
the working gas and the metal. 


70 r r HANGF ’N MFTAL NODE TEMPERATURES DUE TO HEAT TRANSFER 

71 DO 782 K=.l 5 

TM. I •, T '.r.TM' VC I '< *-nM.'V""i. 'CM' f '• 

" 1‘Cin ~ T NUF 


Step 6 - Pves-.-.i'es for Each Space Due to Heat Transfer with No Volume 
Change. 


The gas temperature cnanges in Step 5 were done with each gas node isolated. 
Inerefore, each gas node will have a different pressure. In Step 6 these 
pressures are calculated using the perfect gas law. 
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Stop 7 - Adiabatic Pressure Equilibration at Constant Total Volume 

Now in Step ? the barriers between the nodes are removed. Assuming adiabatic 
processes, it is possible to solve algebraicly for a common press are for all 
the nodes. Start with the adiabatic relationship 

• k - cp/cv 

Using the nomenclature of the program the gas originally in the hot space now 
has a volume of 


V1(I) -= VHA(2,K) * (F3(I,1)/F4(I)) ** KH 
The gas originally in the heater manifold now has a volume of 

V2(I) = VHM * (P3(I,2)/P4(I)) ** KR 


The heater* 


V3(I) = VHD « (P3(l.3)A*Ml)) ** KR 

The -egenerator manifold* 

V4(I) - VHM * (F3(I,4)/F4(I)) ** KH 
The hot half of the regenerator* 

V5(T) - VHD/2 * (P3(i,5)/r4(x)) ** kk 
T ne cold half of the regenerator* 

V6(I) = VuD/ 2 * (p 3( I , b) /P4( I ) ) ** KI < 

The cooler* 

V?(I) = VCP * (?3(l »?)/F4(l) ) ** KR 

The cole space * 

V8(I) = VCA(2,1) * (P3(I ,h)/P4(l)) ** KR 
Now the total volume has not changed. Therefore* 

VT(2,I) - V1(I) + V2(I) * V3(I) + V4( T) + V^(l) + V6(l) 

+ v?(i) + vb(i) 

The unknC'... 14(1) is solved lor ,^n the above equations. See the programming 
below. ' 
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-cm c-TC-p 7 — ADIABATIC ppccc.npp F'*»UILJRPfiT!ON AT CONSTANT TOTAL 

-c r -, r r TNAI COMMON PPSSSI.ipf POP ! NCPFMFNT 
■’ci.r ■ '-v/HA- I ' + P“ ■' I t s >* *KP 



' '-! 

'V 

•'HM ♦ P 

■ ■ I 2 

•++LP 

-PR 

• • • 


•'HD ♦ P 

T- T. 2 

"• ♦ ♦L'P 

7PP 


>' 

■’PM + P 

T ■ 14 

• + ♦ UP 

pnn 


:+■ 

•'PC' ‘2 

♦ Pm 

I C-. + fKP 

l 


:+■ 

■’PD ‘2 

*p: • 

I g.f*KP 

vfO 


>' 

•T D ♦ F‘ 

-•'17 

■ ♦ 44 p 

per 

■ : v 


R > 2 

. I VP 

? •" T • ?•>♦ * 

204 

P4 

i 

1 ” •** /■ 1 

VT <• 2, 

I . -. + +1:4:' 


VOLUMF 


Step 7 A - New Temperatures 

This pressure equilibration step results in different temperatures for each 
gas node. Using the adiabatic relationship these temperatures are calculated. 

•' STFP ?A — GAS NODF TEMPERATURES AFTEP ADIABATIC PPESSUPE 
POP »* F.OIJIL IBPA T ION 

207 DO ITT \ -1 s 

PAP 1 ?T TO A- 2- f • I "•• ;T GR- 2. K- I • P4-' T VP” ( I . K> V+GA 


Step 7B - New Volumes 


With a new pressure and new temperatures, new gas node volumes and cumulative 
volumes are now calculated. 


r jtcp -p — CUM-JL AT I VE VOLUMES OF GAS NODES DUE TO PRESSURE 
FOUIl. I BEAT TON 

CVG 1 1 I '• -11 ■ .7 • !■ I '• ♦TGA' 2. 1, T VF‘4>:'I^ 


AAA 

r ctcp -p — CUML'L 

210 

c FOUIl 

211 

CVG 1 1 I 

212 

DO 174 L- 

21" 

1”4 CVG* Y I •• 


CVG • Y r*"CVG<K-l- P+N(2 h I'-VC+TGA'?. F', !VP4« I> 


Finally, since CVG(8,l) bv the above series of calculations may have an 
accumulated error, the correct value is substituted. 

P 1 4 r CORRECT SMALL ERROR IN VOLUME 
P ID CVG •' S • I '< --VT < 2, I '• 


Step 8 - Initialise Quantities for Next Increment 

Because of the way the calculation was formulated, the temperatures, volumes, 
pressures arid nasses in the four working spaces and in the eight nodes in 
each working space could not be modified as the calculation progressed. A 
difference had to be made between the old and new values. In this step these 
values are reinitialized. Note that Steps 6, 7 and 8 are in one do loop 
(lines 777 to 829) • Therefore, these steps are done for working space 1, 

I — 1 , and then for working space 2, I = 2, and so on. 
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916 C S 

TEP 8-- INITIALIZE QUANTITIES 

81? : V 

TEMPERATURE 

818 

DO 364 K=l, 8 

819 264 

TGA<1, K, I>=TGA<2,K, I> 

820 C 

VOLUMES 

821 

VT Cl . I >=VT <2, I> 

822 : 

VCA< 1.. n=VCA<2, I> 

822: 

VHRvl, I>=VHA<2, I> 

824 C 

PRESSURES 

825 

Pl< I >=P4< I > 

826 C 

MASSES 

827- 

DO 750 K=l, 8 

828 750 

W'sl, K. I >*W<2, K. I> 

829 : 740 

CONTINUE 

Step 9 - Determine Engine Torque at Output 


This step is the culmination of a large amount of calculation. It proceeds 
in three steps i l) find the forces on the pistons, 2) find the torques and 
average pressure, 3) find the shaft torque from the indicated torque based 
upon a correlation. 


The force on a particular piston is the net of three forces: l) the pressure 
times the are:u of the hot end of the piston (ACY) , 2) the pressure of the 
next working space times the area of the bottom of the piston (.BCY) taking 
out for the drive rod, and the pressure drop across the seal times the 
seal area (CCY) . In this program the crank care pressure is fixed at 0.1 MPa 
1 atm A Since the pressures are in megapascals, 10^ N/m^, and the areas are 
in cm 4 -, a factor of 100 is needed to cor: vert the units. Figure 4.16 shows 
that the forces on the pistons are all upward for a positive force. 


SCO C STEP 9 — DETERMINE ENGINE TOPOUF AT OUTPUT SHAFT 

8?1 C TNpTCRTFD ENGINE T9PG" IF FORCE ON PIS T 0NS NEWTONS 

822 FP* 1 •= 100 *••• -Ft • i • + RC V-* PI <4 ■ PL 1 4 1 *rry, 

~ FP 2 "• - 100 ♦ P 1 • 1 '• ♦•pr V-P i. • p '< ♦RC v- > p-j . i •. _n t + r r y . 

S . J cd , ~ , — j flc, , p i p + prv-p i • 7 • + RC y— > Pi •" 2 ' — O 1 ' * f-r y -. 

PCS pp.-4-.-=iR0 ♦ . Pi-p'. ♦E:CV-P1 ■ 4 . ♦firv-i'Pt* T i'‘ r CV 1 


Next, these foices are converted to a torque from each crank. The angle 
ver.tion is that used in Figure 4.14. Note that since the radius or’ the 
RC, is i : centimeters, division by 100 is needed to obtain the torque in 
Newton-meters . 


con- 

crank, 



TfiPfuic rif.j EhCH i'PRNF. N-M. rru IE POSITIVE 

T n i • ~pr MOO 4 •- r f.j . pciPRr,-. 4 pp f 1 . 
x 1 1 • t ■ 1 •— p' 1 _ 1 1 1 iri ♦ •-. T N * E ^PuX 1 ♦ p I 1 + rp ' ■ 1 

TO'* '-Pf.MOO ♦ S IN'" ERPRD+P 1 T 1 *EP 
to .• 4 -PC . ' 1. on ♦ s y n , EPjpRrs+p 1 “ p \ *cp •' .1 . 


Next, the indicated torque is the sum of the four crank torques. The average 
pressure is calculated to be used in the shaft torque calculation . 
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841 C INDICATED TOPOUE FOP ENGINE 
94;? TO I ~TO «' 1 '• +TO 1 2 '> *-TO < 7 '• 4-TO •' 4 '• 

94" PA V= • P 1 Cl '• 4-Pi 2 '• +P1 • '7 > 4-Pi ■: 4 -• '>.•■4 

In order to avoid calculating flow losses all the way along, a correlation was 
made for the 4L23 engine to determine how the power drop due to flow losses 
correlates with engine pressure and speed. This correlation was 
based upon 16 cases run with the isothermal second-order analysis (6). This 
analysis was found to agree with the validated General Motors calculation to 
within 1C$ over the full range of engine operation (6) . Appendix B fully 
explains this correlation and show that it is nearly exact. 


944 i" SHAFT TQROIJE FOP ENGINE 
94*=; SP=0MEG/<2 ♦PI ' 1 

jo9=T0 1 ♦ME.'lOO 0AA62- 0©00145*OMEG* ♦£ v * • i - r 'MF0* 0004° 1 * 
947 1 PAV** • -1 84 1'*'' 

949 c*+*+*END OF ENG INF TOPOIJE AND INTERNAL H T SUBPROGRAM 


4.2.10 Control Program (Part 3) 

This very simply asks if time is up. If not, it starts over. 

849 C***'**C0NTP0L PROGRAM PART " 

850 7?0 I F • T I M-TOTT ' 401 . 7?5 . 78*5 


4.2.11 Final Summary Report 

The final summary report is now very simple. It simply prints the tola] fuel 
consumed, the total time (given) and the ending vehicle speed. More infor- 
mation can be added as the need is felt. 


851 

o*+**final summary report 

852 

785 

WRITE 1 T. 79S>FIJEL, TOTT. SPV1 

857 

798 

FORMAT- FUEL. TOTT SPV1 7F10 

854 

5000 

STOP 

855 


END 
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5.0 LISTING OF PROGRAMS 


Three separate computer codes are included in this report. One code, WARM, 
was used to evaluate how best to handle the burner and air preheater. This 
code is given in Appendix A along with an explanation of it and the results 
found from it. 

Listings are given in this section for GNTLA.FOR and CNTLB.FOR. CNTLA con- 
tains the nomenclature for both programs. CNILA.FOR is given on pages 73 
to 86. CNTLB.FOR is given on pages 88 to 1C4 , CNTLB.FOR was given 
piecemeal in Section 4 as the equations were explained. 
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FORTRAN SOURCE CODE LISTING 
OF CNTLA 
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1 c PROGRAM CNTLfl FOP 

2 C WRITTEN BV MARTINI ENGINEERING UNDER CONTRACT NUMBER 

2 C DEN" -2 At* FOR NASA-LEWIS UNDER THE DOE ADVANCED AUTOMOTIVE 

4 C PROPULSION PROGRAM THIS PROGRAM SHOWS NOMENLCATURE FOR 

5 C CNTLfl AND CNTLB CNTLA IS FOR CHANGING INPUT PAPAMENTES 

6 C FROM THE CONSOLE AND IS FOP CREATING A DATA FILE TO BE 

7 C READ BV CNTLB 

9 C NOMENCLATURE ■f* 

? C A = TEMPOPAPV VARIABLE 

10 C AAPH = HEAT TRANSFER AREA OF FULL AIR PREHEATER, SQ CM 

11 C ACE * RADIAL ENGINE ACCELERATION, RAD/SEC **2 

12 C ACP = ANGLE INCREMENT CRITERIA, DEGREES 

II. C ACRR = ANGLE INCREMENT CRITERIA, RADIANS 

14 C ACV ^ ACCELERATION OF VEHICLE AT START OF TIME STEP, M/SEC**2 

15 c ACV =.• PI4+DCV* +2 

IF. f AE = AIR FRICTION, NEWTONS 

17 C AFAPH - AIR FLOW AREA FOP AIR PPEHEATER, SO CM 

19 C AFR = FRONTAL AREA OF VEHICLE TIMES SHAPE COEFFICIENT, M*+2 

IQ r AH = HEAT TRANSFER ARFA FROM FLAME, FULL ENGINE. SQ CM 

70 C AMF - GAS HEATER MINIMUM FLOW AREA. CM**2 

71 C B - It MRORARV VARIABLE 

C BCY * P 1 4 ♦ 1 DCV ♦> +2-DDR * *2 '• 

7“ C C - TEMPOPAPV VARIABLE 

24 r rry - ACV-BCV 

C CFF - CURRENT FUEL FLOW. G/S 
2F. f CFH FUEL FLOW ABOVE WHICH NEW HEAT TRANSFER FACTORS 

MUST BE CALCULATED. G/S 

79 C iTl - FUEL FLOW BELOW WHICH NEW HEAT TRANSFER FACTORS 

79 r MUST BE CALCULATED, G/S 

"O C CM*S* = METAL NODE HEAT CAPACITIES, J/K 

*1 C rMH - HEAT CAPACITY OF GAS HFATEPS FOR ONE CYLINDER, J/K 

12 C CMflPH - HEAT CAPACITY OF APH METAL NODE. J/K 

"I C C MX -■ HEAT CAP AC I TV OF REGENERATOR MATRIX, J/K 

~\ C CR ^ HEAT CAPACITY AT CONSTANT PRESSURE. T/G K 

:s •' I' PA -• HEAT CAPACITY OF AIR J/G K 

r CRFG = HEAT CAPACITY OF FLUE GAS T.r, K 

c CS * COEFFICIENT FOR SHARP OF VEHICLE 

r CV -• HEAT CAPACITY AT CONSTANT VOLUME T/G K 

■ =* C CYY - 4 ♦CZK'T.TMhRH 

•ia 1 T'ANG - CHANGE TN FNGINE ANGLE. RAF' 

-»l f FCY -• r-TAMFTEP OF CYLINDER- CM 

47 C r-F'P = DIAMETER OF [.RIVE ROD- CM 

r * r*DT TIME STEP Tfi ENG INF CAl.CULATTON TO MAKE C'ANG BETWEEN 

44 C LA AND SO F'FGPEES, SEC 

45 C DEO - EQUIVALENT DIAMETER 'USED IN AIR PPEHEATER > • CM 

W r DIC - DIAMETER INSIDE OF COOLER TUBES. CM 

47 C DIH - DIAMETER INSIT'E OF HEATER TUBES- CM 

49 t F-IHM INSIC'F DIAMETER OF T' 'BES TN HEATER MAN CM 

49 • r-TRM INSTT-F DIAMETER OF TUBES IN REGEN MAN .CM 

ro C r-IST -- DTSTANCF TRAVELED FROM START M 

r . i r r-OH - OUTS.IC-F f'T AMFTFR OF HEATER TUBES. CM 

• ; r r c MAMETE* OF EOru REGENERATOR. CM 

r- ■* r,- T . r-I'"TANi'E TRAVELED F-UPING TIME STEP- M 

•"4 ‘ r.j r i Mfr .-ypp TN! T TAL ANT' ST ANF-APr- ~E'* 

" r * f nr .r r, FN'jINE ANuLE F'E'sF EE'-. 

•• PARAF- ENGINE ANGl F PAf* I AN' r 
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37i C EIN - ENGINE INERTIA. KG*M**2 

58* C ERRFL - ERROR IN FLOW NASS BALANCE. GN 

59» C EX < Y) - AIR PREHEATER METAL NODE TEMPS. AT START OF TIME STEP, K 

60 » C EYCY) - AIR PREHEATER METAL NODE TEMPS. AT END OF TIME STEP, K 

61* C FCA - FRACTION OF VCDX THAT IS ADIABATIC 

62* C FF - FILLER FACTOR. FRACTION OF REGENERATOR VOLUME FILLED 

63 i C WITH SOLID, MUST BE ZERO IF IT IS NOT KNOWN 

64* C FFF - FULL FUEL FLOW, O/S 

65* C FLAME « BURNER FLAME TEMPERATURE, K 

66* C FP(4) * FORCE ON PI STUNS (AWAY FROM CRANKSHAFT IS POSITIVE) 

67* C NEWTONS 

68* C FUEL - TOTAL FUEL CONSUMED BY ENGINE, G 

69* C FWI - FLOW, WATER INLET FOR ENTIRE ENGINE, G/SEC 

70* C G - OAP BETWEEN HOT CAP AND CYLINDER WALL, CM 

71 I C Qp m (KK-1) /KK 

72* C GAPH - MASS VELOCITY (USED IN AIR PREHEATER), O/S CM**2 

73* C OCT - DEAR CHANGE TIME, SEC 

74* C GDF - GRAPHIC DISPLAY FLAG, SEC 

75* C GDI - GRAPHIC DISPLAY INCREMENT, SEC 

76* C OMAX - MAXIMUM MASS VELOCITY IN HEATER, G/S CM**2 

77* C HAS - HEAT TRANSFER COEFFICIENT, W/K CM**2 

78* C HCL « HOT CAP LENGTH, CM 

79* C I « TEMPORARY INTERGER VARIABLE 

80* C II * TEMPORARY INTEGER VARIABLE 

81* C IG1 - FLAG 0-HEAT UP, 1-IDLE. 2-IN GEAR 

82* C IG2 « FLAG 0-INITIAL VALUE, 1 -AFTER CALC INITIAL OAS MASSES 

83* C IG3 - FLAG SHOWING WORKING SPACE IN WHICH GAS MASS WAS CHANGED 

84* C J - PRINTOUT FLAG — 5 TO SCREEN, 2 TO PRINTER, INTEGER 

85* C 11.12 - GRAPHIC OUTPUT, X VALUES 

86* C IPV(2, 4) - GRAPHIC OUTPUT ARRAY FOR PV DIAGRAM 

87* C J1.J2 - GRAPHIC OUTPUT, Y VALUES 

88* C JPV(2, 4) « GRAPHIC OUTPUT ARRAY FOR PV DIAGRAM 

89* C J7 = DETERMINES INPUT NUMBER SELECTION 

90* C K » TEMPORARY INTEGER VARIABLE, SOLID INDEX COUNTER 

91* C KAPH - THERMAL COND. FACTOR IN APH, W/K 

92* C KAR - COEFFICIENT OF AIR RESISTANCE 

93* C KK - CP/CV 

94* C KM - THERMAL CONDUCTIVITY OF STRUCT. MAT., W/CM K 

95* C KME(6) « THERMAL CONDUCTIVITY FACTOR FOR ENGINE METAL NODES W/K 

96* C KMX - THERMAL CONDUCTIVITY OF MATRIX MAT., W/CM K 

97* C KR - 1 / KK 

98* C L - GAS INDEX COUNTER 

99* C LAPH - HEAT TRANSFER LENGTH IN AIR PREHEATER, CM 
100* C LC - LENGTH OF COOLER TUBES. CM 

101 * C LCR - LENGTH OF CONNECTING ROD, CM 

102* C LH - LENGTH OF HEATER TUBES. CM 

103* C LHH - HEATED LENGTH OF HEATER TUBES. CM 

104* C LHM - LENGTH OF TUBES IN HEATER MANIFOLD. CM 

105* C LHV - LOWER HEATING VALUE OF FUEL, KJ/O 

106* C LR * LENGTH OF REGENERATOR. CM 

107* C LRM - LENGTH OF TUBES IN REGENERATOR MAN. , CM 

108* C M(4) - INVENTORY OF GAS IN EACH ENGINE COMPARTMENT. G 

109* C M2 - GAS MASS CHANGE. O 

110* C ME - ENGINE MECHANICAL EFFICIENCY. PERCENT 

111* C MGI - INITIAL GAS INVENTORY, G 

112* C MIR - BASIC TIME CONSTANT IN ADDING OR REMOVING GAS 

113* C MIR1 — ADJUSTMENT OF MIR TO PREVENT CONTROL OVERSHOOT 
114* C MI V - MASS, INERTIA OF VEHICLE, KG 
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1.17 C MM 1 = MASS OF GAS MOVED ACROSS NODE 1 IN COLD DIRECTION 

1 r MM2 TO MM7 -- SAME FOP NODES 2 TO ? 

11“ »* MSH = MESH SIZE, WIPES. 'CM 

J13 C MW -- MOL EC UL OF' WEIGHT OF WORKING GO'S . G/G MOLE 
119 C MWFG MOLECULflP WEIGHT OF FLUE GAS. G/G MOLE 

1.20 0 N - NUMBER OF NOC-ES IN RIP PREHEATER. INTEGER 

121 C NftPH - l» OF RIP PPEHERTEP FLOW PASSAGES IN EACH DIRECTION 

122 C NER - FLOG TO COUNT NUMBER OF CYCLE* BEFORE ERASING PV D I AG 

12: C NGC -• GEAR CHANGE FLAG, INTEGER 

124 C NO NUMBER OF NODES IN RIP PREHEATER, PEAL 

127 C N02 = N/2 

126 r nr = NUMBER OF PEGENEP AT OPS/CVL I NDER 

127 C NS = NUMBER OF SCREENS PEP REGENERATOR 

123 C NTC - NUMBER OF COOLER TUBES/CVLINDEP 

IPS C NTH - NUMBER OF HEATER TUBES PEP CYLINDER 

I. 70 f NTRM ^ NUMBER OF TUBES IN REGENERATOR MANIFOLD 

171 '• 0M1 -- DESIRED IDLE SPEED OF ENGINE P/S 

172 C OMEG -- ACTUAL ENGINE SPEED, P/S 

177 C PAV == AVERAGE PRESSURE IN 4 CYLINDERS. MPA 

174 C PBIS -= PROPORTIONAL BAND • IDLE SPEED, RAD/SEC 

17 5 C PBVS = PROPORTIONAL BANC-. VEHICLE SPEED, M/SEC 

17 6 C PC' IF = PPH-PPL 

177 C P'l - FT - 7 J41S.92t.S4 

173 C PI 7 F'T/2 - 1 /070793727 

1/9 T PT‘P 7 ♦■PI/2 

140 i‘ PI 4 - F'T 4 - 797” 99 1377 

J. 41 '* POP PRINT OUT FLAG- SEC 

147 ' PPM t HTGH PRESSURE PESEPVOIP PRESSURE. MPA 

147 r PPL -= LOW PPESSURF RESERVOIR PRESSURE. MPA 

14J r c-: _ PRFS9HPF nc MORE TNG SPACF HAVING ITS PPFS AD T , MPA 

! 4/ '■ PI.- 4- - GAS ppfSSURE AT BEGINNING OF TIME STEP. MPA 

143 '* P7' -1 Gpc PRESS' iPF A CT F |: ' VOLUME CHANGE MPA 

14“ •* r“.-4 3 • • GAS EPFS'”' ..IFF AFTER TEMPERATURE EOUILIBPATION AT 

> i '■'••NSTANT ■••’OLUME MPA 

' f. - P4-'4 . - rofiMON GAS PPESSURF AT END OR T T ME STEF'. MPA 

I/O r oi ni.'TPMT FI.HG. 1 0 =GRAPH I CS ON SCREEN REAL 

ir i r 02 - RRTNTO'.IT FI. AG / 00 TO SCREEN. 2 00 TO PRINTER 

1/7 r 07 - OUTps.it FLAG- 1 O-PEP IODIC PRINTOUT, 0 A -NONE 

1 /' C nc nr AT TAG OR heater tubes of one cylinder by burner 

1/4 [''.IF IMG A TIME STEP. T 

1 // r OF' ; . HEATING OF working GAS IN HFATEP TUBES DURING TIME STEP, J 

IS/ ■' ONI' 4'- * CUMULATIVE HEAT INPUT FOR CYCLE. J 

177 C OM 7- --- HEAT RECEIVED BY METAL NODES 1 TO 7 DURING STEP 7 

173 C S' = 3 714 J.'G MOL K 

179 C RAC- * 0 017477 RAC* I ANS. ‘DEGREE 

130 * RAF ^ PATIO OF AIR TO FUEL, G/G 

1/1 C PA1 - RAF ♦ 1 . G. 'G 

• 32 C PC - RAC- 1 US OF CRANK, CM 

.37 C PC 2 - 2+PC 

134 C RE = REYNOLDS NUMBER 

137 C REV = NUMBER OF ENGINE REVOLUTIONS SINCE ST APT 

133 f RF = POLLING ERKTION. NEWTONS 

137 C PGE * WORKING GEAR PATIO. METERS /REV 

133 C PGE 1 = FI PST GEAR PATIO, VEHICLE TRAVEL/REV, METERS 

139 C RGE2 = SECOND GEAR PATIO. VEHICLE TPAVEL/PEV, METERS 

170 C PGE 7 ^ THIRD GEAR RATIO. VEHICLE TPAVEL/PEV. METERS 
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171 C PM = RESIDUAL MASS !N STEP 4, Q 

172: C RR * Rr.SIDUAL RATIO IN STEP 4 

172 . C RT - INTERFACE TEMPERATURE IN STEP 4 

174 C RUT - REGENERATOR MALL THICKNESS, CM 

175 C RX = CP - CV 

176: C SPM * CRUISING SPEED OF VEHICLE, M/S 

177 C SPVD * VEHICLE SPEED DESIRED BY SCHEDULE, M/S 

178 C SPV1 = SPEED OF VEHICLE AT BEGINNING OF TIME STEP, M/SEC 

17 9: C SS - CHECK TO ALLOW USER CHANCE TO STOP 

180 C STN * STANTON NUMBER TIMES PRANDL NUMBER TO TWO THIRDS POWER 

181 C T1 * AMBIENT AIR TEMPERATURE, K 

182: C TA = AVERAGE OF HEATER METAL TEMPERATURES, K 

182: C TAC =» VEHICLE ACCELERATION TIME, SEC 

184 C TAPH « THICKNESS OF PREHEATER PASSAGE, CM 

185 C TC = GAS TEMPERATURE AT REGENERATOR-COOLER BOUNDARY, K 

186 C TCR * DURATION OF STARTING MOTOR TORQUE, SEC 

187 C TCY = THICKNESS OF CYLINDER WALL, CM 

188: C TD = THMG-TWI 

189 C TE = ERROR IN CONTROLLED TEMP OF HOT METAL, K 

199: C TG<X, Y, 2) = MATRIX OF GAS TEMPERATURES AT NODE BOUNDARIES 

191 C X=1 BEFORE MASS FLOW *2 AFTER 

192 C Y=i MIXED TEMP OF ADIABATIC HOT SPACES 

193 C Y=2 AT HOT END OF HEATER MANIFOLD 

194 C Y=3 AT INTERFACE BETWEEN HEATER MANIFOLD AND HEATER 

195 C V=4 AT INTERFACE BETWEEN HEATER AND REGENERATOR MANIFOLD 

196: C Y*5 AT INTERFACE BETWEEN REGEN MAN AND REGENERATOR 

197: C Y»6 AT MIDPOINT IN REGENERATOR 

198 C Y=7 IN COOLER 

199 C V-8 IN ADIABATIC COLD SPACE 

200: C 2*1 TO 4 FOR 4 WORKING SPACES 

201 C TGA<X, V, 2> * MATRIX OF AVERAGE GAS TEMPERATURES 

202 C X=1 BEFORE MASS FLOW *2 AFTER 

202: C V*1 FOR HOT 5PACES 

204 C V=2 FOR HEATER MANIFOLDS 

205 C Y=3 FOR HEATERS 

206 C V=4 FOR REGENERATOR MANIFOLDS 

207 C V=5 FOR HOI HALF OF REGENERATOR 

208 C V=6 FOR COLD HALF OF REGENERATOR 

209 C V=7 FOR COOLER 

210 C V=8 FOR COLD SPACES 

211 C 2=1,4 FOR 4 WORKING SPACES 

212 C TH = GAS TEMP AT PEGEN MANIFOLD-REGENERATOR BOUNDARY, K 

213 C THC = THICKNESS OF HOT CAP CYLINDER, CM 

214 C THCH = THICKNESS OF HOT CAP HEAD, CM 

215 C THH = THICKNESS OF HOT CYLINDER WALL HEAD, CM 

216 C THW = THICKNESS OF WIPE IN SCREENS OF REGENERATOR CM 

217 C THMG * TEMPERATURE, HOT METAL GOAL K 

218 C THU = ENGINE WAPM-IJP Ti'ME, SEC 

219 C TID = IDLE TIME AFTER CRANKING, SEC 

220 C TU = THU+TCP 

221 C TI2 = TI1+TID 

222 C TI3 = TI2+TAC 

223 C TIM = CUMULATIVE TIME, SEC 

224 C T I MX = SPECIFIC CUMULATIVE TIME FLAG, SEC 

225 C TIN''20'' = INLET AIR PREHEATER AIR NODE TEMP , K 

226 C TM- l.V'* = METAL TEMP AROUND HOT SPACE, K 
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227 C TM<2,Y> = METAL TEMP BETWEEN HEATEP MAN AND HEATER. K 

729 C TM*'2* V' 1 = METAL TEMP BETWEEN HEATER AND REGEN MAN . K 

229 C TM 4 V- - METAL TEMP BETWEEN REGEN MAN AND REGEN , V 

220 C TM*'?. Y> = METAL TEMP MIDPOINT OF REGENERATOR, K 

271 C TM>'6*Y> « METAL TEMP BETWEEN REGEN AND COOLER, Y 

222 C TM*'?. Y ■ = METAL TEMP BETWEEN COOLER AND COLD SPACE* V 

221 C TMAPH ^ THICKNESS OF METAL SEPARATING EACH FLOW PASSAGE* CM 

224 C TNET = NET ENGINE TORQUE, N-M 

275 C TOTT * TOTAL SIMULATION TIME* SEC 

226 C TOU<20> * AIR PREHEATER FLUE GAS NODE TEMP , K 

227 C TPB «= TEMPERATURE, PROPORTIONAL BAND IN HOT METAL* K 

273 C TQ<4 1 = TORQUE FROM EACH PISTON, CCW IS POSITIVE, N-M 

229 C TOI = TOTAL INDICATED TORQUE, N-M 

249 C TQS = TOTAL SHAFT TORQUE, N-M 

241 C TOY = TORQUE VEHICLE PUTS ON ENGINE* N-M 

242 C TRAY * AVERAGE REG METAL TEMP, K 

242 C TREP ~ TIME INTERVAL FOR REPORT PRINTOUT, SEC 

244 C TPH = THICKNESS OF REGENERATOR HEAD, CM 

245 C TST = STARTING MOTOR TORQUE, N-M 

246 C TT » CHECK TO DETERMINE WHEN POINTS SHOULD BE PLOTTED 

247 C TWI * TEMPERATURE, WATER INLET, K 

248 C TWO = TEMPERATURE OF COOLING WATER, K 

249 C TXM1 « TEMP-MASS PRODUCT FOR GAS MOVING PAST NODE 1 

250 C TXM2 TO TXM6 * SAME f OR NODES 2 1 < 6 

251 C UAPH = HEAT TRANSFER COEFF AIR TO METAL IN AIR PREHEATER, W/CMT.’ K 

252 C UH « HEAT TRANSFER COEFF FLUE GAS TO GAS HEATER METAL, W/CM2 K 

252: C UXX ■ L APHHIAPH+2 *NAPH/ 4 *RAF*CPA'> 

254 C UXY « LAPH+WAPH+2 +NAPH/ < 4 *CZ^> 

255 C VI » VOIUMF nr r.oc t*invED TOWARD COLD END AT NODE 1, CM2 

256 C V2 TO V7 = SAME FOR NODES 2 TO 7 

257 C VAB = VOLUME OF AIR IN BURNER, CU CM 

258 C VCAC2, 4> = VOLUME. COLD, ADIABATIC* START AND END OF TIME STEP 

259 C VCA1'4"> = VOLUMES OF GAS ORIGINALLY IN ADIABATIC COLD SPACE 

260 C AFTER VOLUME CHANGE, CU CM 

261 C VCDA = VOLUME. ADIABHTIC COLD DEAD, CU CM 

262 C VCD = VOLUME, ISOTHERMAL COLD DEAD, CU CM 

263 C VCD < 4 > * VOLUMES OF GAS ORIGINALLY IN GAS COOLER AND 

264 C ISOTHERMAL PART OF COLD DUCT AFTER VOLUME CHANGE 

265 C VCDX = VOLUME, COLD DEAD NOT IN GAS COOLER, CU CM 

266 C VHA<2* 4'* *= VOLUME, HOT, ADI ABATIC, START AND END OF TIME STEP 

267 C VHAK4') - VOLUMES OF GAS ORIGINALLY IN HOT ADIABATIC SPACE 

268 C AFTER VOLUME CHANGE, CU CM 

269 C VHD * HEATER DEAD VOLUME, < ASSUMED ISOTHEPMAL> CU CM 

270 C VHD1^4> * VOLUMES OF GAS ORIGINALLY IN HOT DEAD SPACE A’-'TER 

271 C VOLUME CHANGE, CU CM 

272 C VHDX = EXTRA HOT VOLUME BESIDES THAT IN THE GAS HEATER, 

272 C CU CM, INCLUDES END CLEARANCE, GAP AROUND HOT CAP 

274 C AND MANIFOLD ASSUMED ADIABATIC 

275 C VHM = HEATER MANIFOLD DEAD VOLUME, CU CM 


77 


276: C VIN • VEHICLE INERTIA AS SEEN AT CRANK SHAFT, KG*M**2 

277 C VRD - VOLUME. REGENERATOR DEAD, PER CYLINDER, CU CM 

278 C VRD1C4) « VOLUMES OF GAS ORIGINALLY IN REGENERATOR AFTER VOLUME 

279 C CHANGE, CU CM 

280 C VPM - REGENERATOR MANIFOLD DEAD VOLUME, CU CM 

281 C VSP2 - VEHICLE SPEED TO CHANGE TO SECOND GEAR, M/SEC 

282 C VSP2 • VEHICLE SPEED TO CHANGE TO THIRD GEAR, MXSEC 

283: C VT<2, 4) * TOTAL GAS VOLUMES AT START AND END OF TIME STEP, CU CM 

284 C VTD « TOTAL DEAD VOLUME, CU CM 

285 C W<X, Y, Z> » ARRAY OF NODAL GAS MASSES 

286: C X*1 BEFORE MASS FLOW -2 AFTER 

287: C Y-l ADIABATIC HOT SPACES 

288 C V-2 HEATER MANIFOLDS 

289: C V-3 HEATERS 

290 C Y-4 REGENERATOR MANIFOLDS 

291 C Y=5 HOT HALF OF REGENERATORS 

292. C V=6 COLD HALF OF REGENERATORS 

292 C Y=7 COOLERS 

294 C Y=3 ADIABATIC COLD SPACES 

295 C Z=>1, 4 FOR 4 WORKING SPACES 

296 C WAPH = WIDTH OF EACH AIR PREHEATER PASSAGE. CM 

297 C WPC « MASS OF REGENERATOR GAS MOVING INTO COOLER, G 

298 C WPH *= MASS OF REGENERATOR GAS MOVING INTO HEATER, G 

299 C WTHM = WALL THICKNESS OF TUBES IN HEATER MAN .CM 

2O0 C WTPM = WALL THICKNESS OF TUBES IN PEGEN MAN , CM 

701 C X = TEMPORARY VARIABLE 

702 C XI = ENGINE SPACINGS IN 4 CYLINDER MACHINE 

“20“ P — " •» II II II M 

204 C X2 = 

705 c X4 - " 

70S C X9 = EXP- UXX/CVV'. ZERO FOP SLOW AIR FLOW THROUGH PREHEATER 

707 c ::a * LCR*+2 

708 C XB = LCP - PC 

709 C XC ^ R / MW 

710 C XDV = HORIZONTAL SCALE FACTOR FOP PV PLOT, CM+*7 

711 C XH = HEAT TRANSFER FACTOR FOP GAS HEATERS 

712 C XLOW = HOPIZ ZERO SURPRESSOP FOP PV PLOT. CM»*7 

712 C XX < 4 ^ * OLD, HEW VOLUME RATIO 

714 C XT •' 4 ^ = OLD. NEW TEMPERATURE RATIO 

215 C XV HEAT TPANSFEP FACTOR FOP AIR SIDE OF APH 

716 C XZ = HEAT TRANSFER F'iCTUP FOR FLUE GAS SIDE OF APH 

717 C V « TEMPORARY VARIABLE 

218 C YY = TEMPORARY VARIABLE 

219 C Z = FLAG FOP WORKING FLUID. 1 FOP H2, 2 FOP HE. 2 FOP AIR 

220 C ZZ * TEMPORARY VARIABLE 
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321: C ***** START OF PROGRAM ***** 

322 : DIMENSION THM<4), TCM<4), TGHS<2, 4), TGH<2, 4), TGC<2, 4), TGCS<2, 4), 

323: 1 P2<4),P3<4, 5), P4<4), M<4), FP<4), TCK4), VHA<2, 4), VCA<2, 4), 

324: 2 VCA1<4), VCD1<4>, VHA1<4), VHD1<4), VRD1<4), VT<2, 4), XX<4>, 

325 : 3 WHA<2, 4), WHD<2, 4), WRD<2, 4), WCD<2, 4), WCA<2, 4), TGR<2, 4), Pl<4), 

326: 4 TMR<4), QHI<4>, T3A<4), CM<6>, KME<6> 

327: INTEGER 2 

328 : PEAL LCR, LH, LR, MSH, MW, KK, KR, LC, M, ME, KRR, KAR, MGI 

329 ; REAL LHH, LHV, MWFG, LAPH, MIR, MIRi, LHM, MIV, LRM, KM, KMX 

330 : REAL NTRM, NTC, NS, NR, NTH, NTHM, IG1, NO, NAPH, KAPH, KME 

331: C BASE CASE INPUT IN ORDER OF CHANGE TABLE 

332 : DATA THMG, TPB, TWI, FWI, 0M1/922. 2, 50. , 300. , 1575. , 40. / 

333 : DATA Ti, DT, ME, 2, RGE1/300 , . 5, 90. , 1, 0. 54/ 

334 : DATA NTHM, DIHM, FFF, THU, LHM/36. . 0. 472, 4. 85, 20. , 7. 95/ 

335 : DATA TCR, TID, TAC, TOTT, SPM/1. 0, 1. 0, 30. , 90 , 22. 4/ 

336 : DATA RC, LCR, DCV, DDR, DIH/2 325, 13. 65, 10. 16, 4. 06, 0. 472/ 

337 : DATA WTHM, NTH, VHDX, NR, DR/0. 084, 36. , 11. 59, 6. , 3 5/ 

338 : DATA LR, FF, NS, MSH, THW/2 5, 0. 2, 0. , 0 0, 0. 0/ 

339: DATA VCDX, FCA, DIC, LC, NTC/196 02, 0. 95, 0. 115, 12. 9, 312 / 

340 : DATA MIV, NTRM, DIRM, AFR, LRM/1100 , 36 , . 472, 1 12, 7. 95/ 

341 DATA DOH, LHH, TMAPH, LAPH, WAPH/0. 640, 25. 58, 0 01, 10 , 5. / 

342 : DATA TAPH, NAPH, PRL, PRH, WTRM/0 3, 50 , . 5, 10. , 0. 084/ 

343 : DATA TST • MIR, RAF, NO, LHV/1000. , 150. , 16 55, 8. , 46 432/ 

344 : DATA GCT, RGE2, RGE3, VSP2, VSP3/1. 0, 1. 0, 2. 0, 4 47, 13. 42/ 

345 : DATA THH, TRH, RWT, TCV, THC/1 5, 0. 5, 0. 41, 1. 27, 0 381/ 

346 : DATA G, HCL, KM, KMX, THCH/0. 0406, 10. 03, 0. 2, 0 017, 0 381/ 

347 : DATA Ql, Q2, Q3, EIN, PBIS/1. , 2. , 1. , 50 0, 5 0/ 

348: DATA PBVS, TREP/1 0, 5. 0/ 

349: C DATA CONSTANTS 

350 : DATA PI 4, PI, PI 2, RAD, R/0. 7854, 3. 14159, 1. 57080, 6 017453, 8 314/ 

351 : DATA J, CPA, CPFG/5, 1 03, 1 20/ 

352. WRITE<J, 8006) 

353: 8006 FORMAT f . ' DATA READ IN ') 

354 : C INSTALL BASE CASE DATA OR DATA FROM FORTIO DAT 

355: WRITERS, 8010) 

356 8010 FORMAT < ' TVPE 1 LEAVE IN BASE CASE DATA V 

357: 1 TVPE 2 TO BRING IN STORED DATA FROM LAST CASE ') 

358: READ <5, 8011)1 

359 8011 FORMATS 13) 

360 IF< 1-2)950, 960, 960 

361: C READ IN DATA FROM LAST CASE 

362 : 96G READ <10, 8004) THMG, TPB, TWI, FWI, OM1 

363 : READ <10, 8004 )T1, DT, ME, RGE1, KAPH 

364 READ <10, 8004)NTHM, DIHM, FFF, THU, LHM 

365. READ <10. 8004)TCR. TID, TAC, TOTT, SPM 

366 READ <10, 8004 )RC, LCR, DCV, DDR, DIH 

367 READ <10, 8004 'WTHM, NTH, VHDX, NR, DR 

368 READ <10, 8004 )LR, FF, NS, MSH, THW 

369 READ <10. 8004)VCDX, FCA, DIC, LC. NTC 

370 : READ <10, 3004 ''MIV, NTRM, DIRM, AFR, LRM 

371 READ < 10, 8004 ) DOH, LHH, TMAPH, LAPH, WAPH 

372 READ <10, 8004>TAPH, NAPH, PRL, PRH. WTRM 

373 . READ < 10, 8004 ) TST, M I R, RAF, NO, LHV 

374 PEAD< 10, 8004)CMAPH, AFAPH, RA1, CZ, DEQ 

375 READ 10, 8004 )UXV, DT2, CV, UXX, CVV 

376 PEAD< 10, 8004) FUEL, AMF, AH, CMH, QEX 

377 READ < 10, 8004 ) KAR, T I M, VHD , VRD, CMX 

378 READ <10, 8004'* VCD, VCDA, VTD, XR, XB 

37? READ <10, 8004) AC V, BCV, PI 32, PCS, CC'V 
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READ < 10 , 8 O 04 >ERPAD, EADEG, DIST. OMEG GCT 

READ < 10, 8004 •> VHR •"l, 1 '< . VHR ■' 1 , 2> ■ VHR ■ 1. , 3 > . VHR '1.4 . yr ft . 1 1 . 
READ- 10. 8004>VCA<1, 2 - VCR' 1, 3>, VCfl*'l. 4> VT<1, l>, VT' i 2* 

PERC" 10 8004 «'"'T' 1 , VT.'l 4 '-. CP. CV. MW 

READ*' 10 , 8004 > PK, KK, OR. KP. XC 

PERC" 10 . 8 G 04 MOV, IG 1 . VHM, VPM, RGE 2 

PERD < 10 . S 004 -PGE: . VSP 2 , VSP 3 , THH- TRH 

READ < 10 , 8004 >RWT, TCV, THC- G, HCL 

PERD < 10 , 8004 M M, KMX, THCH , Ql, 02 

PERD < 10 , 8004 >Q 2 , EIN, KME <1 *, 1 ME< 2 > • KME <3 • 

PERD < 10 , 8004 > KME < 4 > , KME < 5 > , KME < 6 ':• , CM < 1 > . CM < 2 > 

PERD < 10 , 30 O 4 > CM < 3 >, CM* 4 >, CM< 5 >, PBIS, PBVS 
PFRD< 10 , 8004 MREP 
EHDFILE 10 
WRITE < 5 , 8005 >01 

FORMAT < y OLD DATA PERC* IN' 01 =', F 3 . 2 * 

WRITE < 5 , 5 > 

FORMAT*:' CNTLfl INPUT ADJUSTMENT PROGRAM TO CHANGE V 
1 ' TVPE 2 DIGIT INPUT NUMBER R SPACE, AND THE NEW INPUT VALUEV 
2 WITH A DECIMAL POINT TO CONTINUE HIT RETUPN '/> 


400 


PERD <5, 7'* I 

401 

»* 

FORMAT < Il> 

402 

8 

write*: J, 10 * 

403 : 

10 

FORMAT*'//// 

404 . 


1, lOX, V ' • 13X, 

405 


WRITE*: J, 12* 

406 

12 

FORMAT < " 

407 


1 ' * 05', F9. 7 

408 


7 15 ' + 

409 


WRITE*' J, 14 > 

410 

C — 

-+• .1 * 

411 

14 

FORMAT*' ' + 

412 


t ♦ IV. F9 

413 


2 , F* 7, ' 2 

414 


WPITEv J. 20 ’ 

415 

20 

FORMAT-' 

416 


1' ♦ 21 ', F9 7. 

417 


2" ♦: ■/ •■ + 76' 

418 


3, F9 3, ' ♦= > 

419 


WRITE*:' J. 22 * 

420 


FORMAT’' ♦ 

421 


1 ♦ 15', F9 "• 

422 


2 F9 3. " ♦ 40 

42" 


WRITE*' J. 25 * 

424 

75 

FORMAT*' - ♦ 

475 


1 ♦ 45 " F9 

416 


2 ' * 49'. E9 

477 


WRITE*' J, 26 - 

428 


FORMAT*' ' * 

x 


' v 55 • . F9 

4~0 


2 F9 ? • ♦ 60 " 

\: i 


WRTTF*" T 27 * 

j “ 7 

7*”' 

F • 'FMhT • *■ 

4'T 


J * 65 ' ■ F9 

474 


2 F9 3- * 70 ' 

4” 5 


WRITE- J. 29 ' 


, F9 3, 

♦ 3» t '■ 


♦ 48 ■ F'- 1 . * 47 , F9 3. 48 F9 

*. -jfi - co -■ •• 


F'-» 7 . ^ 6 1 F ^ * *“ *• . F'-* * .-..j F' * "" 

♦ * *~*6 . F r 1 k ir»7 ■ E~* r , + *- 


'fc./l.-Nri PAGE 
ip POOR QUALITY 


4>: 
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FORMAT < ' * 71 F9 3, ' * 72 , F9 3, ' * 73 ', F9 3. ' 

+ ' 

4"? 


1 

' * 75 ,F9 2, ' *'/' * 76',F9. 3, ' * 77",F9. 3, ' + 

78 

478 


J 

♦ 7? • F9. 3, ' * SO' . F9 3, ' *'> 


429 



WRITE' J, 30 > PBVS, TPEP 


440 

10 


FORMAT <' + 31',F9 2, ' ♦ 82',F9 2, ' * 83',F9. 3, ' 

4 . ; 

441 


1 

♦ 85 ", F9 3,. ' ♦ '/' f 86 '.. F9. 2.- ' * 87 '.. F9. 3. ' * 

88 

44': 


ill 

' * 89 , F9. 3, ' * 90', F9 2, ' *'> 


44" 



WRITE*: J, 28 > 


444 

7*0 


FORMAT- ' ',71*; '*'>/' II XXXXXXXXXX', 2X, 'TYPE 99 

TO 

447 


1 ' 

AND FILE INTERMEDIATE VALUES'/'* 


44k 



READ <5. 26 •> J7, 00 


447 

3’*> 


FORMAT •' 12. IX, FLO 2'- 


44:=! 



IF 1 J7 Eu 9 ?' 1 GO TO 140 


4-1''' 



ir.- T7-? :*45. 45, 23 


4*-, ft 

— 


IF'' 17-1? '47. 47. 2? 


45 1 

" 9 


IF* T 7 -J9 • *4'? • *4'-* • 4m 


■r-' 

40 


T p T-. -Q .p,n. 50. 41 


4 1 :," 

41 


IF' T 7-4? '51 71.42 


r i 

47 


tc T-, -59'i52. 57 4“ 


irr 

.1" 


IF.- T--f? 'I20. 120 121 


• » . 

1 1 


I r :** ip.n ± 50 [ 7 1 


ir" 

1.71 


t p T -1 — -• a , 1 00 lari 1 a j 


a - ,:-: 

r?i. 


tan t no 


i r *~; 
¥ . ' 

.t * 


r ,0 to .- 77.74 7*-. 7 p 5 - pa , 79 . po PJ T7 


4 •■"t-'i 

j- 


y — 7 “* .. 4 


4-* 1 



”| Tft •' r~ 7’ > ■% ^2 ^7 h - ’-! . 159 . “* 0 , 7 1 ' ' T 7 


• J’ 

— * r . 

4 8 


17 • T--j.a 


4*~« 



jft TO . -*.-■ 7 - 74 . **7 78 , 77 . **:5. 79 , § 0 . 91 . . 17 


4r*4 

7ft 


T— T7_r.a 


.U*7 



GO TO C;- , 94 85 8 P . 87 . 93- 3?. 90, ?1', T7 


■ I-'.- 

r-_ i 


T7 T”*- -? 


4-"7 



•"ii * 1 T* ?2 9~ 84 . 97 ap 97 . 99 ?o. ion. 101 > T7 


l.*8 

r . 


T7- T 7-48 


4'" a 



GO TO .'10;*' 1.0". 104 107. 106 107. 108. 109- 110. 111'. 1 , 

J7 

470 

1 20 


T7- T7-7? 


471 



GO TO .'122 122. 124. 125. 126. 127- 128, 129 170, 12 1>, 

T7 

47.7 

178' 


IT* T 7-69 


47"' 



GO TO 1.52. 152. 154. 155. 156. 157. 158, 159, 160, 161 > , 

J7 

474 

190 


T7 - T7-79 


4 “5 



GO TO '"192 197 . 194 • 1 05 • 196, 197. 198, 199* 200. 201'*. 

T7 

476 

•““T 


THMG-00 


477 



got n? 


47'-: 

74 


TPB-00 


47? 



GOT- 1 o 


4:--f! 

77 


TMj -00 


l ?1 



GOT 09 


4S? 

r* ■“ 

jfy 


Fill -00 


4' r '~ 



GOT 09 


4x4 

t — * 

J i 


0 M 1 -00 


487 



GOT 09 


48k 

rr.-. 


Tl-'T'O 


487 



G0T09 


488 

7? 


C'T -'*'? 


48*' 



GOT Ora 


4? ft 

80 


ME -On* 


4*'! 



Got no 



81 


492i 

61 

Z*QQ 

493i 


G0T09 

4941 

62 

RGE1-QQ 

495i 


00T09 

496i 

63 

NTHM-QQ 

497» 


GOT09 

4981 

64 

DIHM-QQ 

4991 


G0T09 

580t 

65 

FFF-QQ 

50U 


G0T09 

5021 

66 

THU*QQ 

5031 


G0T09 

504i 

67 

LHM=QQ 

5051 


G0T09 

5061 

68 

TCR«QQ 

507: 


G0T09 

308: 

69 

TID-QQ 

509t 


G0T09 

510: 

70 

TAOQQ 

51H 


G0T09 

512i 

71 

TOTT=QQ 

513: 


G0TQ9 

5141 

72 

SPM=DQ 

5151 


G0T09 

516: 

73 

ROQQ 

517: 


G0T09 

5181 

74 

LCR=QQ 

519: 


G0T09 

520: 

75 

DCY-QQ 

521 1 


G0T09 

5221 

76 

DDR=QQ 

5231 


G0T09 

524: 

77 

DIH-QQ 

525: 


G0TO9 

526: 

78 

WTHM-QQ 

527: 


G0TO9 

528: 

79 

NTH-QQ 

529: 


G0T09 

530t 

80 

VHDX=QQ 

531: 


G0T09 

532i 

81 

NR=QQ 

533i 


Q0TO9 

534: 

82 

DR-QQ 

535i 


G0TO9 

536: 

83 

LR-QQ 

337i 


G0TO9 

538« 

84 

FF-QQ 

539 » 


G0TO9 

5401 

83 

NS-QQ 

541i 


G0TO9 


542i 

86 

MSH-QQ 

543i 


G0T09 

5441 

87 

THW-QQ 

5451 


G0T09 

5461 

88 

VCDX-QQ 

547! 


G0T09 

548i 

89 

FCA=QQ 

5491 


G0TQ9 

530: 

90 

DIC=QQ 

55H 


G0TQ9 

552: 

91 

LC-QQ 

353: 


G0T09 

5541 

92 

NTC-QQ 

555i 


G0T09 

5561 

93 

MIV-QQ 

557: 


G0T09 

558i 

94 

NTRM=QQ 

559i 


G0T09 

5601 

95 

DIRM-QQ 

56H 


G0T09 

562i 

96 

AFR=QQ 

563i 


G0T09 

564t 

97 

LRM*QQ 

565i 


G0T09 

5661 

98 

DOH=QQ 

567: 


G0T09 

5681 

99 

LHH-QQ 

5691 


GGT09 

5701 

100 

TMAPH-QQ 

571: 


G0TD9 

572: 

101 

LAPH=QQ 

573: 


G0T09 

574: 

102 

WAPH=QQ 

5751 


G0T09 

576: 

103 

TAPH=QQ 

577: 


G0T09 

578: 

104 

NAPH*QQ 

579: 


G0T09 

5801 

105 

PRL-QQ 

581: 


G0T09 

582: 

106 

PRH-QQ 

583: 


G0T09 

5841 

107 

WTRM-C3 

585: 


G0T09 

5861 

108 

TST-QQ 

587: 


G0T09 

588: 

109 

MIR-GQ 

5891 


G0T09 

590! 

110 

RAF*=QQ 
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•' NL'HREP OF MW- IN RPH ^T'lEO BE 'RUSE OF PROGRAM GT7E 
OQ" 00 TOO 


7^“ 

1 11 

NO --3 

004 


GO TOO 

7^7 

i;: 

L hv - ne- 

Oop 


on Too 

0 ‘O 

i ■* 

r. r t ;im 

r-v 


GO TOO 

-;•>* 

J.34 

FGE2 no 

000 


(jOT,-|0 

"Oi 

107 

P'Gc? 00 



GO yno 

►T M “ 

10 -* 

'..."“F " -OO 

F 0 J 


.‘OT IT'4 

roo 

1 ?“ 

' ‘ :f»r 

-" 1 * 1 -“ 


"v iT no 

O ' 

• -■ T 

tmh- no 

0,0 ■ 


GO TOO 

r'OO 

i :••■• 

TF'H-OO 

- ! ,"*i 


go t no 

”"1 ! 

1 ■* o 

c-!.iT -on 

' l ,? 


GO too 

FIT 

l: i 

t r y -on 

F 1 4 


got no 

■ t e- 

'■ i. ' 

l o *• 

T H'"-= oo 

4 i f 


GOTOO 

Fir 

1 r ~'~ 

0 OO 

FLO 


G0TO9 

•"lo 

1^4 

HOt. on 

F20 


GOT09 

F,*‘ i 

170 

\ 71-00 

F 72’ 


GOT oo 

F7~ 

10F 

FMX=0O 

F24 


G0TO9 

F20 

107 

THCH-OQ 

F 0 6 


GOTOO 

For 

103 

01=00 

F23 


GOTO? 

F*"? 

10? 

02=00 

•r"'P 


G0T09 

F'l 

160 

o~ =00 

FT 2 


GOT 09 

F”7 

IF1 

EIN=00 

F24 


GOTO? 

f:o 

192 

PBIS=QQ 

676 


GOTO? 

F 7 7 

197 

PB'v'S=QO 

F03 


GOTO? 

f:? 

194 

TPEP=00 

640 


GOT 09 

F41 

190 

GOTO? 

F42 

196 

GOT 09 

643 

197 

G0T09 

F44 

198 

G0TO9 

645 

199 

GOTO? 

F4F 

20O 

GOTO? 

F47 

201 

GOTO? 


I 


648 

C 

HEAT 

' CAPACITV OF AIR PREHEATER METAL ASSUMING STEEL WITH 

649: 

c 

5 0C 

I J/CU CM K HEAT CAPACITY 

658 

140 

CMAPH=LAPH*WAPH+2. +NAPH*TMAPH*5 00/NO 

651 

C 

HEAT 

CAPACITY OF ENGINE METAL NODES 

652 



X=PI4*DCY**2 + 'THH+THCH S < 

652 . 



Y=P I *DCV* < TCV+THC > *HCL/2. 

654 



ZZ=P I *D I HM+WTHM+NTHM+LHM/2 

655 



CM <1 '• = < X+- Y+ZZ > *5. 00 

656 



X=PI4*<:'D0H*+2. -DIH++2. >+NTH*LHH/2. 

657 



CM <. 2 '■ = •’ ZZ+X '> +5 ©0 

658 



Y=P I * D I PM+WTPM+NTPM+L PM/2. 

659 



CM<Z>-<X+V>+5 0O 

660 



X=PI4+<DP+RWT >**2 ♦TRH+NP 

661 



ZZ=PI+DP+-PWT*LR/4 +PI‘i*i>P*+2 *LP/4+FF 

662 



CM v 4 > = < Y+X+ZZ > *5. 00 

662 



CM < 5 > -2. +ZZ+5 0O 

664 

c 

FLOW AREA IN PREHEATER 

665 



AF APH=WAPH+T APH+NAPH 

666 

c 

HEAT 

TRANSFER CONSTANTS 

667 



RA1=RAF+1 

668 



CZ=CPFG*RA1 

669 



DEQ=2 + WAPH*TAPH/ < WAPH+T APH > 

670 



UXY=L APH +WAPH+2 * N APH.- ' < NO+CZ > 

671 



DT2*LHV*1000 TZ 

672 



CY=CPA * PAF+ 4 /c MAPH 

6 1 . 



UXX=LAPH*WAPH *2. ♦NAF'H/ < NO * RAF ♦ C PA '> 

674 



CVY=CZ*4 /CMAPH 

675 



FUEL*© 

676 

r 

MINIMUM FLOW AREA FOR FLUF GAS THROUGH GAS HEATER 

677 



AMF -DOH*LHH + NTH/2. 

678 

c 

HEAT 

TRANSFER AREA GAS HEATER FOR ONE CYLINDER 

67? 



AH=PI +DOH+LHH+NTH 

680 

c 

HEAT 

CAPACITY OF GAS HEATER FOR ONE CVLINDFP 

6:31 



CMH-4 71+ P T 4 + . [.OH ♦ ♦ 2-D I H+ + 2 '• H.HH+NTH 

632 

c 

INI Al 

IZATIONS 

6:3? 



OF/-0 

684 



JH-'-l 

o c~ 



TIM-0 

8 3 6 

r 

HFATFR MANIFOLD DEAD VOLUME- VHM 

_ ' <Z' i 



VHM-P 1 4 ♦ D I HM ♦ + 2 + LHM * NTHM 

r*. .-! X 

r 

HOT DEAD VOLUME PEP CYLINDER- VHf< 

'*4 

16 


VHD=P 1 4 ♦ [■ T H : * 2 ♦ LHH *NTH 


r 

REGENERATOR MANIFOLD DEAD VOLUME VPM 

691 



VPM-P 1 4 + D I PM ♦ 2 + LF'M ♦ NTPM 

r-, -j "• 

r 

REGENERATOR LEAF- VOLUME AND HEAT CAPACITY PER CS'LIMDFP VI 

8 J - 



IF'FF. L68 171 1 72 

694 

16 

C; 

WRITE- 5. 169 . 

6 ?5 

16 


FORMAT*' TNPUT [*ATA ERROR- PRESS FNTER TO RETURN TO l 

6, ,: i6 



PFAD' 5. 170 *X 

6?7 

17 

0 

FORMAT ■ 17 • 

8? 8 



GOTO'? 

PI j 

17 

1 

VRf.-NR + PI4 + r.R LP-? *P 1 4 » NS * MS H * THU ♦ ♦ ? • 

700 



CM: :-- 4 71 ♦NR»PT4 + DP++2 + ! F ♦ M' r H * F T l»TMU 

701 



: :^fjp p 

"Ti? 



ff- * :-vfd* 

70' 



GOTO 173 

704 

i — 


VPD=NP ♦ P T 4 ♦ DR ♦ ♦ 2+ L F ♦ L -FF ■ 

705 



cm:: - 4 "*] *N C ♦ PI ♦ ♦ r.p * C- + PF 

- - - 

1’ 

- 

i'ONTTNI IF 


84 



COOLER DEAD VOLUME PEP CYLINDER 
ISOTHERMAL 

vcd-vc r>: : ♦ < i -fca • +p i 4 *d i c **2*lc * ntc 

ADIABATIC 

vrr-A=vrr':-:+FCfl 
TOTAL DEAD VOLUME 

VTP-VHM+VHD+VPM+VPD+VCD 

INTERMEDIATE VALUES TO MAKE ENGINE VOLUMES CALCULATE FASTER 

:■ -:a-lcp *+2 
::b-lcp-pc 

ACV-PI4+‘DCV+ + 2 

PC v -P T 4 ♦ • DCV ♦ +2-DDP *+ 2 > 

PI"' ♦FT ’2 
P r ** “* ♦ F'i * 

rrv^nrv-prv 

T T INITIAL SPEED- ANGLE, DISTANCE 
F C IF or • o 
c pfFG O 
DIT T O 
OMFC- - c* 

CALCULATE ATP F(7~T ’ T ANCF CONSTANT 
LAF -Ci 

EFT INI T TA'. ENG INF VOLUMES 

1 -T-'PT. • ;a-. pr rSIN' ERPAD - • *•*":: -po *C OS*' EAPAD '• -STB 

v 2 -?op t . : :h- • pc *s i nl fapad+p t 2 • • * *?.'> -pc *c os ceaprd+p i 2 • :r 

XT -S opt - "A- - PC *SIN' EAPRD+PT '• ♦ 2 "> -PC*COS ERRAD+P I '-XB 

X4-SOPT • ".A-* 1 RE ♦ S I N < E AP AD +P 122'* '• ** 2 ^ -PC •♦•COS < EARAD+P 122'* - 

VHA M D -AC V •" PC 2-X 1 '■ +VHDX 

VC A- 1. I 1 =BC V ♦ ' ! 2 + VC DA 

VHA ■ 12' - AC V ♦ PC 2-X2 '• +VHDX 

vc a t . 2 *» - pc v ♦ : + vcda 

VHA* 1 • : • -AC V * ■ PC 2-X2 >+VHDX 
VC AC l, 2 '• “BCV ♦ X4+VCDA 


7-40 


VHA' l 4 '-HLV+ • PC2-X4 • +VHDX 

74 1 


VC A 1 1 - 4 '-PC V + Xl+VCDA 

74* 


DO 174 T -1 . 4 

74* 

174 

VT- 1- I '-VTD+VHA 1 1, I "• + VCA < 1 

■*•■14 

C SET 

UCPKING GAS PROPEPT IES 

7 •1 r *. 


GO TO ' 17A. 177, 178' 1 • 7 

74 A 

1 7 A 

CP* 14 72 

747 


cv=io : a 

74 ft 


MU =2 02 

740 


GOT0179 

770 

177 

rp=5 2 

771 


CV=7 12 

— cr 


MM =4 O 




GOTO 179 

T J 

1"' 

*P-1 0.7? 


f V=0 74 2 A 


7 r '.E 

MM* 

29 0 

— • r~ — » 

17^ CONTINUE 

r 

r,A'- oil ANT I T I F 

" r ,4 

px • 

r p -r v 


i i • 

CP. T 

TV i 

GR- 

•IK-1 

, f-. . 

\ P : 

l > l 

TV* 

;c 

P. 'MU 

>‘.4 

T 

0 

7k 1 ". 

I G t 

-0 


:F: 


t 
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766» 
767* 
768! 
769 » 
7701 
771: 
772i 
773! 
774i 
775i 
776i 
777i 
778: 
779! 
780: 
781: 
782: 
783: 
784: 
785: 
786: 
787: 
788: 
789: 
790: 
791: 
792: 
793: 
794: 
795: 
796: 
797: 
798: 
799: 
800: 
801 : 
802: 
803: 
804: 
805: 
806: 
807: 
608: 
809: 
810: 


C THERMAL CONDUCTANCE BETWEEN APH METAL NODES 
KAPH»KM*TMAPH*WAPH*NAPH*2. *NQ/LAPH 

C THERMAL CONDUCTANCE BETWEEN ENGINE METAL NODES 
KME ( 1 ) =KM* P I *DCY* < TCY->-THC > /HCL 
KME (2) =KM*PI *DI HM*WTHM*NTHM/LHM 
KME(3)*KM*PI4*CD0H**2-DIH**2)*NTH/LHH 
KME ( 4 ) =KM*PI *DI RM*WTRM*NTRM/LRM 

KMEC5)=KM*PI*DR*RWT*NR/CLR/2. ) +KMX+PI 4*DR**2*NR/ CLR/2. ) 
KME(6)=KMEC5) 

C WRITE TRANSFER FILE TO DISK 

8004 FORMAT < 5 ( F9. 3 ) ) 

WRITEC 1 0i 8004 ) THMG, TPB.TWI, FWI, OM1 
WRITEC 10, 8004) Tl, DT, ME* RGEl.KAPH 
WRITEC 10i 8004)NTHM, DIHM, FFF, THU, LHM 
WRITEU0, 8004) TCR, TID, TAC, TOTT, SPM 
WRITEU0, 8004) RC, LCR, DCY, DDR, DIH 
WRITEC 10, 8004) WTHM, NTH, VHDX, NR, DR 
WRI TE( 10, 8004 )LR, FF, NS, MSH, THW 
WRITEC 10, 8004) VCDX, FCA, DIC, LC, NTC 
WRI TE( 10, 8004) MI V, NTRM, DIRM, AFR, LRM 
WRI TEC 10, 8004 )DOH, LHH, TMAPH, LAPH, WAPH 
WRI TEC 10, 8004 ) TAPH, NAPH, PRL, PRH, WTRM 
WRITEC 10, 8004) TST , MIR, RAF, NO, LHV 
WRI TEC 10. 8004)CMAPH, AFAPH, RAl.CZ.DEQ 
WRITEC 10, 8004 ) UX Y, DT2, CY, UXX, CYY 
WRITEC 10, 8004) FUEL, AMF, AH, L'MH, QEX 
WRITEC 10, 6004) KAR, TIM, VHD, VRD, CMX 
WRITEC 10, 8004) VCD, VCDA, VTD, XA, XB 
WRITEC 10, 8004) ACY, BCY, PI 32, RC2, CCY 
WR I TE C 1 0, 8004 ) EARAD, EADEG, 1)1 ST, OMEG, GCT 

WRITEC 10, 8004) VHAC1, 1 ) , VHAC 1 , 2) , VHAC 1 , 3) , VHAC 1 , 4) , VCAC 1 , 1) 

WRITEC 10, 8004 ) VCAC 1, 2), VCAC 1, 3) , VCAC 1 , 4) , VTC 1 , 1) , VTC1, 2) 

WRITEC 10, 8004)VTC1, 3), VTC1, 4) , CP.CV, MW 

WRITEC 10, 8004)RX, KK, GA, KR, XC 

WRITEC 10, 8004) TQV, IG1 , VHM, VRM, RGE2 

WRITEC 10, 8004) RGE3, VSP2, VSP3, THH, TRH 

WRITEC 10, 8004) RWT, TCY, THC, G, HCL 

WRITEC 10, 8004 ) KM, KMX, THCH, Ql, Q2 

WRITEC 10, 8004)03, EIN, KMEC 1 ) , KMEC 2) , KME C 3 ) 

WRI TEC 10, 8004 ) KMEC 4), KME C5). KME C6) , CMC 1 ) , CMC2) 

WRITEC 10, 8004) CMC 3), CMC4) , CMC5) , PPIS, PBVS 
WRITEC 1 0, 8004) T REP 

5000 STOP 
END 
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FORTRAN SOURCE CODE LISTING 
OF CNTLB 


87 



I C Mf » f + * * ♦ ♦ * PROGRAM CNTLB FOP’*-* m * * *♦**:♦.♦ » >* • h m « *■♦>* * 

7 C WRITTEN RV MARTINI ENGINEER I NO UNDER CONTRACT Nl IMRFP 

: C DFN7-22S FOP NASA-LEWIS UNDER THE DOE ADVANCED AUTOMOTIVE 

4 C PROPULSION PROGRAM CNTLB READ? IN THE INPUT DATA FILE 

* GENERATED IN CNTLA AND CALCULATES AND DISPLAYS RESULTS 

•?- C CNTL E' CALCULATES THE TRANSIENT PERFORMANCE OF A 4 CYLINDER 

C DOUBLE ACTING ST I PL I NG ENGINE WITH TUBULAR HEAT EXCHANGERS 

0 C AND POROUS REGENERATOR CONNECTED TO A VEHICLE THROUGH A GEAR BOX 

* c the RESIDENT DRIVING CYCLE CONSIST* OF HEATUP- CPANP I NG- IDLE- 

10 C ACCELERATION FROM ZERO TO CRUSE SPEED AND HOLD THAT SPEED 

11 C SECOND AND THIRD GEAR CHANGES APE SPECIFIED BASED UPON VEHICLE 

12 c speed rear change is linfap htth a specified time 

IT c CNTLA IISES AS A BASE CASE THE DIMENSIONS OF THE 4L2T ENGINE 

14 C CNTLB ADJUSTS THE TIME STEP SO THAT THE ANGLE INCREMENT IS 

15 C BETWEEN 7 AND TO DEGREES THE PROGRAM HAS NO LIMIT TO FLOW 

IS c ACROSS GAS NODES OP CHANGE IN GAS INVENTORY CONTROL IS BV 

17 C CHANGE IN GAS INVENTORY 

IS C START OF PROGRAM 

1 ? D I MENS I ON XT • 4 • - I PV < 2 - 4 - - JPV - 2 • 4 • . 

20 1 F 2 1 4 • • PS •' 4 . 8 • - F‘4'"4 • . M<4 • . FP- 4 •. * r O- 4'.. VHP*' 2- 4'*. VCA*‘2- 4 - . 

21 2 vt* 2 - 4 xx* 4 *. 

22 “ R 1 • 4 * - C VM • S . 4 * . TGR *' 2 8 • 4 - • 

27 4 Ofil. 4 T‘A' 4 TIN<10*. EX*'8 *• TOU<10'*- TM*A. 4 *. FY* S'- PME* S'*- 

5 OM' S *. TMA' S- 4V 
25 F. CM- 5 

D I MENS I ON TM1 •" *5 . 4 "* , W C 2 - 3 - 4 ■ . C VG ■ S . 4 > 

REAL I..CR I.H-LP MSH-MW-H'-IR LC- M- ME FAR - MG I 
OS REA! LHH I. HV Ml-lFG - L ARM - M I P M I P l , LHM - M I V - L PM - M2 , MX 

‘-••SAL NTPM- NTS NS NP. NTH NTHM. TGI - NO - NR P H V APH i'M PMX- FME 
o r r-q T ^ r ON.* T ANTS 

-i r.OTp c-|4 pi PT2 PAL* P ''*• 7S*"4. 7 J 4 IS’ 3 1 57080 01745*. 8 1 J. * 

7.0 ['AT* i r PA CRFGXS- 107 1 20.' 

C“- "+♦♦♦♦ -»-p pr , jsprj.-prt:- r T [ r ccmm pjR 


( 

•-•O’*, i 

FORMA* 

, IT* 

r'A ~ '■ 

— f— 


c-rpr. . 

18 

3004 * THMG TC 'B Ti.JI R.JI OM 1 

- 


PFA r - • 

1 i't 

*004 -T1 r,T M F F'GEl FORM 

- 7 


c-rpr- - 

LO 

*004 -NTHM DTHM. FFF. TH" LHM 



RFAr* - 

10- 

8004 s * TCP. TID TAC- TOTT S-PM 



REAP • 

10- 

8004 'PC L CP DCV. r-f.p piw 

48 


RFAf- • 

in- 

'-004 '-NTHM. NTH. VHr*X- NR. DR 

41 


FRAP • 

10 

8004 *LP- FF- NS. MSH. THW 

42 


REAL- • 

1C 

8004 - VC DX- FCA DIC LC . NTC 

4 ~ 


PEAD • 

10. 

8004 '• MTV. NTPM. DIPM- AFP. L RM 


44 READ • 10- S004'* DOH- LHH - TMAPH - LAPH, WAPH 

45 READ *10- S004 *TAPH, NAPH PPL PPH- WTRM 

4F READ • 10 ■ 8004 '• TST .MIR- RAF - NO • LHV 

47 READ *10- 8004 '• CMAPH-AFAPH-PAl.cz. DEO 

48 PEAD • 10 - 8004 '*UXY, DT2 . C Y , UXX- C VV 

48 READ *10- 8004 ) FUEL.- AMF- AH- CMH, QEX 

50 PEAD *'10- 8O04> FAR - TIM. VHD. VRD- CMX 

51 PEAD • lO- 8004 *VCD, VCDA- VTD- XA- XB 

52 PEAD 10 - 8004 '■ AC V . BC Y - P 1 32 - PC 2 . C C V 

52 PEAD *10. 8004'*EAPAD- EADEG- DIST- OMEG- GCT 

54 PEAD < 1.0 ■ 8O04 > VHA <1, 1>. VHA < 1, 2 s * - VHA <1,2 "» - VHP • 1 ■ 4 V VC A*' 1 . 1 * 
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55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 
68 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 
G0 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 
107 


READ <10, 8004)VCA<1,2). VCA<1, 3), VCA< 1 , 4> , VT< 1 , 1).VT<1.2> 

READ <10, 8004) VT <l*3),VT(l»4)tCP»CV,MW 

READ (10, 8004 )RX, KK, 0A» KR, XC 

READ (10, 8004 )TQV, IQ1, VHM, VRM, RGE2 

READ <10, 8004) R0E3, VSP2, VSP3, THH, TRH 

READ (I0i 8004) RWT, TCY, THC, 0, HCL 

READ (10,8004)KH,K11X.THCH,Q1,Q2 

READ (10, 8004) Q3. £IN, KME( 1 > , KMEC2) , KHE(3) 

■CHD (10, 8004 ) KME < 4 ) , KME ( 5 ) , KME ( 6 ) , CM ( 1 ) , CM < 2 ) 
f 3D (10, 8004) CM (3) , CM(4) , CM(5) » PE 18, PBVS 

^AD <10. 5004)TREP 
I TEC 5, ;!B06) 

8006 DRMATC PILE READ’) 

C***** INITIALIZE VALUES 

C ORGANIZE TIMES FOR OPERATING CYCLE 
TT-0. 

TIt-THU+TCR 

TI2-TIH-TID 

TI3-TI2+TAC 

C BURNER INITIALIZATION 
N»NO 
N02-N/2 
DO 200 1*1, N 
T0U(I)=T1 
TIN(I)«=T1 
EY < I ) =T 1 

200 EX<I)-T1 

TIN(N+1)=T1 

TA-T1 

TD-THMG-TWI 
FLAME-T1 
TOUCN+l )«T1 
CFL-1000. 

CFH*0. 

CFF-0 

C INITIALIZE CUMULATIVE HEAT INPUT AND METAL TEMPS 
DO 198 1=1,4 
TM( 1 , I ) *T1 
TM(2, I) =T1 
TM< 3, I ) “T1 
TM( 4, I ) =T1 
TM(5, I ) =(TWI+T 1 ) /2. 

TM(6, I ) =TWI 
M( I ) =0. 0 

198 QHI < I ) =0. 

C SET PRINTOUT OPTION 
J=Q2 

C INITIALIZE VEHICLE INERTIA 
VIN-0. 0 

C INITIALIZE ENGINE AND VEHICLE SPEED 
QMEG s 0. 0 
SPV1=0. 0 
SPVD-0, 0 
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108 

IBS 

110 

111 

112 

113 

114 
113 
116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

130 

131 

152 

153 

154 

155 


C INITIALIZE WORKING TIME STEP 
DDT-DT 

C INITIALIZE TORQUES 
TQ8-0. 0 
TQV-0.0 
TNET-0. 0 

C INITIALIZE ENGINE ANGLES 
EARAD-0. 0 
REV-0.0 
NER-0 
NQC— 1 
MIRt-0. 

ROE-0. 

C INITIALIZE ENGINE PRESSURE 
DO 950 1-1.4 
950 PI < I ) -PRL 

C INITIALIZE FLAG TO CALCULATE CONDITIONS AT CRANKING 
IG2-0 

C INITIALIZE OUTPUT FLAGS 
POF-0. 0 
GDF-0. 0 
GDI-T0TT/l*i24. 

O****** DRAW GRAPHIC FRAME IF OPTION IS ON 
C GRAPHIC FRAr- 

IF (Ql-1. 00.* 158. 157. 158 
C DRAW OUTLINE 
157 CALL CLEAR 

11-0 
Jl-0 
12-1023 
J2-0 

CALL VECTORdl. Jl. 12. J2> 

11- 1023 
J 1-779 

CALL VECT0RU2. J2, II, Jl) 

12 - 0 
J2-779 

CALL VECTORdl, Jl. 12. J2) 

11-0 

Jl-0 

CALL VECT0RU2. J2, II. Jl) 

11- 700 
Jl-0 

12- 700 
J2-779 

CALL VECTORdl, Jl, 12. J2) 

C DIVIDE INTO 4 LAYERS LEFT SIDE 
11-0 


156 

157 

158 

159 

160 
161 
162 


J 1-629 

12-700 

J2-629 

CALL VECTORdl, Jl. 12. J2) 

Jl-479 

J2-479 

CALL VECTORdl, Jl. 12. J2) 


163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 
IBS 
186 

187 

188 

189 

190 

191 

192 

193 

194 
193 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 


C DIVIDE INTO FOUR LAYER*, RIGHT SIDE 

11- 700 
Jl-190 

12- 1023 
J2-190 

CALL VECTOR! It. Jl. 12, J2> 

J 1-380 
J2-380 

CALL VECTOR! II, Jl, 12, J2> 

J 1-570 
J2-570 

CALL VECTOR! 11, Jl, 12, J2> 

C DRAW SCHEDULED VEHICLE SPEED 
11-0 
J 1-632 

I 2-T I 2/TOTT *700 
J2-632 

JALL VECTOR! II. Jl, 12, J2> 

Il*T'3/TOTT*700 

Jl-776 

CALL VECTOR! 12, J2, II, Jl) 

12-700 

J2-776 

CALL VECTOR! II, Jl, 12. J2> 

C DRAW SCHEDULED ENGINE SPEED 
11-0 
J 1-482 

I2-THU/T0TT *700 
J2-482 

CALL VECTOR! II, Jl, 12. J2> 

1 1 -THU/TOTT ♦<700 
J 1-534 

I2-TI 2/TOTT ♦'700 
J 2-554 

CALL VECTOR! II, Jl. 12, J2> 

C DRAW HOT METAL GOAL TICK (THMG) 

11-0 
J 1-200 
12-10 
J2-200 

CALL VECTOR! II. Jl, 12. J2) 

C DRAW COOLING WATER TEMP TICK !TUI> 
Jl-10 
J2-10 

CALL VECTORUl, Jl. 12. J2> 

C CALCULATE DISPLAY PARAMETERS 
PDIF-PRH 

XLOW-VTD+VHDX+VCDA 
XDV-!ACY+BCY>*RC2 
138 CONTINUE 


213 

214 
213 
216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 
233 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 
246 
249 
230 
251 

232 

233 

234 

235 
256 

237 

238 

239 
260 
261 
262 

263 

264 

265 

266 

267 

268 
269 


0****WRITE UNIFIED PRINTOUT— RETURN POINT FOR MAIN LOOP 

401 IF (03-1. 0)390, 402, 390 

402 IF(TIM-POF) 390» 39 It 391 

391 POF-POF+TREP 

WRI TE ( J. 8023) TIM, CFF, REV. OMEQ. SPV1 . 8PVD. DDT 
8023 FORMAT (6F8. 2. F8. 3. 2F8. 2) 

WRITELJ, 8022) TxN( 1 ),TIN<2),TIN(3)»TIN(4),TIN(5)»TIN(6).TIN(/), 
* TIN(fl) . TINC9) 

WRITE (J. 8022) EX (1). EX (2). EX (3). EX (4). EX (3). EX (6). EX (7). 

1 EX (8), FLAME 

WRI TE( J. 6022) TOU( 1 ) . T0U<2> , T0U<3) . T0U<4) , T0U<3) . T0U<6) . T0U<7) , 
1 T0U(8) . T0UC9) 

DO 10 1-1,4 

10 WR I TE ( J. 8022 ) TM ( 1 1 I ) . TM(2. I ) . TM<3» I ) . TM(4. I).TM<3. I). PI (I). 

1 M(I),VT(1. I) 

8022 FORMAT (9(F8. 2)) 

WRI TE(J. 8022 )TNET, TQS. TQV, VIN, MIR1. ROE 
C*****DISPLAY GRAPHIC DATA, PART 1 
390 IFCQl-l. )20. 21, 20 

C CHECK TO SEE IF PLOTTING SHOULD BE DONE 
21 IF (TIM-GDF) 20. 393.393 

393 GDF-GDF+GDI 

C SHOW FUEL FLOW RATE 

I1-TIM/TOTT*700 
J1-CFF/FFF*777 
CALL POINT(Il.Jl) 

C SHOW AVERAGE HEATER TEMP. 

J1-(TA-TWI ) /TD*190*10 
CALL POINT(Il.Jl) 

C SHOW FLUE GAS TEMP. ENTERING PREHEATER 
J1-(TOU(N«-1)-TWI)/TD*190+10 
CALL POINT ( 1 1. J1 ) 

C SHOW FLUE GAS TEMP. LEAVING PREHEATER 
Jl-(TOU(l)-TWI)/TD*1904l0 
CALL POINT ( 1 1 , J1 ) 

r SHOW AVE. HOT METAL SPACE TEMP (NODE #1) 

X-0 

DO 143 1*1.4 

145 X*TM( 1 . I ) ♦X 
X-X/4. 

J1-(X-TWI)/TD*190*10 
CALL POINT ( 1 1 • J1 ) 

C SHOW AVE METAL TEMP HOT END REGEN. (NODE #4) 

X-0 

DO 146 1-1.4 

146 X-TM(4, I ) ♦X 
X-X/4. 

Jl-(X-Tl >/TD*190+10 
CALL POINT ( II . J1 ) 

C SHOW AVE. METAL TEMP. MIDDLE REGEN. (NODE #3) 

X-0 

DO 147 1-1.4 

147 X-TM(3. I)+X 
X-X/4. 

J1-(X-TWI>/T!)*190+10 
CALL POINT ( I 1 . J1 ) 

IF( TIM-THU) 20. 20.934 
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2701 

271* 

272* 

273* 

274* 

273* 

276* 

277* 

278* 

279* 

280* 

281* 

282* 

283* 

284* 

285* 

286* 

287* 

288* 

289* 

290* 

291* 

292* 

293* 

294* 

295* 

296* 

297* 

298* 

299* 

300* 

301* 

302* 

303* 

304* 

305* 

306* 

307* 

308* 

309* 

310* 

311* 

312* 

313* 

314* 

313* 

316* 

317* 

318* 

319* 

320* 

321* 

322* 

323* 

324* 

325* 

326* 

327* 

328* 

329* 


C SHOW ENGINE SPEED 
934 J 1 ■ONES /OM 1 *72+482 

CALL POINTCIl, Jl) 

IF < TI M-T 1 2) 20. 20. 933 
C SHOW VEHICLE SPEED 
953 Jl -SPV l /SPM+ 144+632 

CALL POINT ( 1 1, Jl ) 

20 CONTINUE 

C*****DISPLAY GRAPHIC DATA, PART 2 
C PLOTTING FOR EVERY TIME STEP OF 4 P-V DIAGRAMS 
C CHECK TO SEE IF OPTION 18 ON 
IF(Q1-1. >832,833,832 
833 IF(TIM-THU)85?» 832, 854 

854 DO 985 1-1,4 

IPVC2, I)-(CVM(8, I)-XLOW>+323/XDV+700 
JPVC2, I)«Pia>+190/PDIF+l90+<4-I> 

CALL VECTOR(IPV(l, I) , JPVtl, I), IPV(2, I), JPV<2, I>> 

IPVCl, I)-IPV(2» I) 

JPV<1, I)-JPV(2, 1) 

985 CONTINUE 

852 CONTINUE 

C4.****ENGINE AND VEHICLE CONTROL SUBPROGRAM PART 1 
C CHECK TO SEE IF HEAT UP TIME IS EXCEEDED 
I F ( T I M-THU ) 503 , 502 , 502 

503 IG1 =0 
GOTO 501 

C FIRST TIME CALCULATION OF GAS MASSES AND INITIALIZE PRESSURES 
C AND SET GAS TEMPS. TO CURRENT METAL NODE TEMPS. 

502 IF ( IG2-1 > 504, 506, 506 

504 IG2-1 

C REDUCE TIME STEP AT START OF CRANKING 
DDT-DDT/10. 

X-PRL+MW/R 
DO 507 1-1,4 
C NODAL GAS MASSES 

W(l, 1, D-X+VHAU, I)/TM(1, I) 

W(l,2, I)»X*VHM*2. / ( TM ( 1 , I)+TM<2. I>) 

U( 1 , 3, I)=X*VHD*2. / ( TM ( 3, I)+TM<2, I>> 

W( 1 , 4, I ) -X+VRM+2. / ( TM ( 4, I)+TM<3, I>) 

U( 1 , 5, I)*X+VRD/(TM<5, I)+TM<4, I>> 

W( 1 , 6, I ) -X+VRD/(TM(6, I )+TM(5> I ) ) 

W( 1, 7, D-X+VCD/TWI 
W(l,8, I)-X+VCA(1» I)/TWI 
C TOTAL OAS MASSES 
M( I ) -0. 

DO 980 K-l, 8 

980 M(I)-M(I)+W(1,K, I) 

C PRESSURES 

P1CD-PRL 

C INITIAL PRESSURE PLOT PARAMETERS 

JPV(1, I>-(P1(I) -PRL) +195/PDIF+1 95+ (4- I ) 

C AVERAGE GAS AND METAL TEMPERATURES 
TGA ( 1 , 1, D-TMC1, I) 

DO 981 K-2,6 

TMAtK, I ) - < TM ( K- 1 , I)+TM(K, I>)/2. 

981 TGA < 1 , K, ! ) -TMA ( K, I ) 

TMA ( 7 , I)-TWI 
TMA <8, I)-TWI 
THAU, 7, I)-TWI 
TGA( 1 , 8, D-TWI 
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330 

331 

332 

333 

334 
339 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 


C CUMULATIVE GAS VOLUMES 
CVGC1. I)*VHA<1» X) 

CVG(2» I)-CVO(l. I) ♦VMM 
CVQ(3. I)-CVG<2. X)+VHD 
CVGC4. X)-CVG<3. I)+VRM 
CVG(3« I ) “CVG(4» D+VRD/2. 

CV0<6t I>-CVG<3. X > ♦VRD/2. 

CVGC7. I)*CVG(6» D+VCD 
CVG<8. I)-VT<1. X) 

C VOLUME PLOT PARAMETERS 

IPV<1. I)-<CVG<B, X ) -X LOW ) 4*323 / XDV+700 
307 CONTINUE 

506 CONTINUE 

C TEST TO SEE IF ENGINE SHOULD BE CRANKED 
IF<TIM-<THU+TCR> >508. 509. 509 
509 X-0. 0 

GOTO 511 
508 X-T8T 

51 1 TNET-TQS-TQV+X 

C CALCULATE ANGLE INCREMENT 

512 DANG-DDT**2*TNET/(EIN+VIN>-*-DDT*0MEG 

C ADJUST TIME STEP SO THAT ANGLE I NCR. IS >7 AND <30 DEG 
IF < DANG-0 52360 >515> 515, 513 

513 DDT=DDT/2. 

GOTO 512 

515 IF (DANG-0. 12217)517, 517, 516 

517 DDT-DDT*2. 

GOTO 512 

C INDEX ENGINE ANGLE MEASURES 
316 EARAD-DANG+EARAD 

EADEG-EARAD/RAD 
REV-REV+DANG/ (2. *PI ) 

I F ( EADEG-360. > 239. 240. 240 
240 EADEG-EADEG-360. 

EARAD-EARAD-2. *PI 

C ERRASE PV PLOT FIELD AFTER EVERY 5 REVOLUTIONS 
IF(Q1— 1. >239. 151.239 
151 IF(NER-5)152. 150. 150 

150 NER-0 

CALL ERASE 
GOTO 239 
132 NER-NER+1 

239 CONTINUE 

C CHECK TO SEE IF ENGINE SHOULD BE IDLEING OR IN GEAR 
IF(TIM-TI2)519. 519* 520 

C ADJUST ENGINE PRESSURES TO CONTROL SPEED WHILE ENGINE IS IDLEING 
319 IG1-1 

I F ( OMEO-OM 1 ) 830. 840, 840 

840 IF<OMEG-COMH-PBIS, >841.841.842 

842 MIR1-MIR 
GOTO 843 

841 MIRl-MIR*(OMEG-OMl)/PBIS 

843 X-PRL 
GOTO 855 

830 IF<OMEG-(OMl-PBIS) >831. 831. 832 

831 MIPi-fllR 
GOTO 833 

832 MIRl«MIR*<OMl-OMEG>/PBIS 

833 X a PRH 

855 CALL MASS <103, PX.MIRl.DDT, X, Pl.EADEO) 

r J4 


290 

291 
??? 

292 

294 

295 

296 
39? 
298 

399 

400 

401 

402 
402 

404 

405 

406 

407 

408 

409 

410 

411 

412 
412 
4:14 

415 

416 

417 

418 

419 

420 

421 

422 
422 

424 

425 

426 
42? 

428 

429 

420 

421 

422 
422 

424 

425 

426 
42? 

428 

429 

440 

441 

442 
442 

444 

445 

446 
44? 

448 

449 


C COMPUTE NEW ANGULAR VELOCITV 
OMEG=DANG/DDT 
GOTO 501 

C ENGINE AND VEHICLE CONTROL WHILE ENGINE 16 TN GEPP 
520 101*2 

C GEAR CHANGE TIME APPLIED TO ALL GEARS 

IF<NGCM?0,171, 172 

170 IF<TIM-'TI2+GCT>>900, 901,901 

900 PQE= ' T I M-T T 2 +PGE1/GC T 
GOTO 910 

901 IE<SPV1-VSP2>906, 905, 965 

906 R0E=PGE1 
GOTO 910 

905 NGC*0 

TIMX*TIM 
GOTO 910 

171 IFaiM-'TIMX+GCT>>162, 167, 162 

162 RGE*RGE1+ < T I M-T I MX > * < PGE2-PGE1 > /GCT 

GOTO 910 
162 CONTINUE 

IF«'SPV:l-VSP2 >907, SOP POP, 

907 RGE=PGE2 
GOTO 910 

90S NGC=1 

TIMX-TIM 
GOTO 910 

172 I F •' T I M- < T I MX+GCT > > 166, 167, 16? 

166 RGE*RGE2+ CRGE2-PGE2 '* * < T IM- T I MXVGCT 
GOTO 910 

167 PGE=RGE3 
GOTO910 

C ADDITIONAL EFFECTIVE ENGINE INERTIA DUE TO VEHICLE ATTACHMENT 

910 V I N=M I V* < RGE/ < 2. *Pn>**2 
C FIND SCHEDULED VEHICLE SPEED 

IF<TIM-TI2>912, 911, 911 
912 SPVD=SPM* < T I M-T 1 2 > /TAC 

GOTO 912 

911 SPVD=SPM 

C ADJUST ENGINE PRESSURE TO CONTROL VEHICLE SPEED 

912 I F < SPVi - SP VD >920, 940, 940 

940 I F < SPVI— ' SPVD+PBVS > > 941, 941, 942 

942 MIPi=MIP 

GOTO 943 

941 MI Pl-M I P* >' SPVI -SPVD > , ‘PBVS 

942 X=PRL 
GOTO 955 

920 I F < SPVI- < SPVD-PB VS > > 921 , 921, 922 

921 M I Pl-M I R 
GOTO 932 

922 M I R1=M I R*< SPVD -SPVI > XPBVS 

922 X=PPH 

955 CALL MASS< IG2, PX, MIP1, DDT, X, PI, EADEG'* 

C TOPOIJE DUE TO VEHICLE ROLLING FRICTION, AIR FRICTION 
PF=MI V*<0 151+0, 000693+SPV1+0 0000195*SPVl*+2> 
AF=KAP+SPVl+*2 
TO V* < RF+ AF > +RGE X < 2. *PI> 

C COMPUTE NEW ANGULAR VELOCITV 
OMEG-DANG/DDT 

C COMPUTE NEW VEHICLE SPEED 
SPV1=0MEG*RGE/ < 2. *PI> 
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470 C ONE LINE CHECK DISPLAY TO SCREEN 

471 * r <01 WRITE *'5, $0T0>TIM CFF PFY. OMEG SPVi, SPVD, BQE. NGC 

47? SOSO FORMAT <’?E9 2, I3> 


.IS - " C INDEX TIME 

474 T !M~TTM+DD T 

477: C+****END ENGINE AND VEHICLE CONTROL SUBPROGRAM PART t 

,iHk r * * * *+ BURNER AND HEAT CONDUCTION SUBPROGRAM 
,10- r INDEX APH METAL NODE TEMPERATURES 


409 DO 9000 I -si. N 

45<3 SOSO EX*' I > “EYC I > 

490 r FIND AVERAGE HEATER TEMPERA -1 * 1 IRE FOR CONTROL PURPOSES 

491 400 T R-*'TM*'2, 1>+TM»'?> 1>+TM<?. 2*+TM<?. 2^+TM*'2, ? >+TM<?. 2V+TM<2> -O 

492 l+TM'-T, 4 v->/*$ 


49? r TEMPERATURE ERROR <FOR CONTROL > 
494 TE--THHG-TA 


497 CURRENT FUEL FLOW 


49>- 

497 40^ 

490 

499 409 

a -a ,io- 

4-1. - 


TF*'TE S 40S 407. 409 
CFE*0 Ol+FFF 
G0 T 04O9 

! f *' TE-TPB v * 40S 40? 

CFF=FEF 

G0TO4O9 


40? 


4-- too CFF-FEE ♦ •" TE VTPP 

47 - aoct *'0N T TNUE 

4-4 FUEL • FUFL+CFF fDDT 

4 -n r CHANGE HEAT TPPNSFEP FACTORS TF CFF HAS CHANGED SIGNIFICANTLY 
4-9 IF*:CFF-CFL> 404.420,. 420 


47 ? 

40. 

4 tf < rcF-CFH'' 420.420,40?: 

.1 79 

c 

HFAT TPAiiCFRp FACTOR, AIR SIDE 

4-0 

40 

GRPH-CFP+PRF/AFAPH 

a AO 


RE®DF0*nAPH*?700 

4 '*■ 1 


CAL L STAN T N< PF ■ STN > 

J 07 


/“UXX* STN* GAPH+1 19. 'CFF 

49“ 


tf.-v qj ?? "‘X*-? 

■ l?a 


XV“EXR , 'X> 

497 

r 

HFAT TRANSFER FACTOR FLUE GAS ?tof 

4PF 


0ARH*=CFF + .'PA1 •*. ‘RFA D H 

197 


ctr .-r.ru + QAPH+2700 

499 


r ALL STANTNvPE- 9TN* 

a x-a 


X=STN+GA*H* 1 lA+nvy TFF 

,j a 0 


IF.’- 1 or -? % y^r? 

491 


X-- EXP 

.1 9 •*' 

r 

MFAT TpANSFFR FACTOR GAS HEATEP 

407 


UHs- < DOH+C FF ♦ PAiXAMF/. 0009 >+**0 792+0. 

494 


Vs 4 +UH ♦ AH. ‘ C'FF *r- 

407 


IF. GT ?2 '• X' ; ?2. 

4 9,* 


XH+EXP<X> 

49? 

r 

RESET FLOW POUNDS 

49*5 


CFH=1 2+CFF 

4'5Q 


CFL-0 9+ CFF 

700 

r 

CALCULATE ARM AIR TEMPERAUPES 

70 1 

4 ? 

0 DO 42- I -I N 

SO? 

•1? 

t I N *' I +1 *• -EX •' I > - < EX' < I > -T I N < I ■> > /XV 

70? 

c 

FIND FLAME TEMPFPATURE 

704 


FLAME -TIN* N+l *+DT2 


'DOH 
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505 : 

506: 

507: 

508: 

509; 

510: 

511. 

512: 

513: 

514: 

515: 

516: 

517: 

518: 

519: 

520 

521: 

522: 

523: 

524: 

525 

526: 

527: 

S2P! 

52? 

530: 

531: 

532: 

533: 

534- 

535 : 

536 : 

577- 

538: 

539 

540 
541: 
542: 
543 : 

544 

545 

546 

547 

548 - 
54*3 

550 

551 

552 

trcr—' 

554 

555 

556 : 


C DETERMINE OUTLET FLUE GAS TEMP. FROM HEATERS 
DO 437 1-1,4 
X«<TM<2, I>+TM<3, I>>/2. 

437 T3A<I>»X+<FLAME-X>/XH 

C AVERAGE FLUE GAS TEMPERATURES 

TQLKN*l)=<T3A<l>+T3A<2>+T3A<3>+T3A<4>>/4. 

C EXIT FLUE GAS TEMPERATURES THROUGH AIR PREHEATER 
D0446 1=1, N 
K-N-I+l 

446 TOU<K>*EX<K>+aOU<K+l>-EX<K>VX2 

C CHANGE APH METAL NODE TEMP DUE TO CONVECTION AND CONDUCTION 
DO 430 1=1, N 

X=CFF*RAF*CPA*aiN< I+1>-TIN< I > >*DDT 
V=CFF*RA1*CPFG* < TOU < I +1 > -TOU < l > > *DDT 
IF< I-l>448, 448,450 

450 I F < I -3 > 449, 451, 451 

448 ZZ=K APH* < EX < I +1 > -EX < I > > *DDT 
GOTO 452 

449 2Z=K APH* < EX < I +1 > -2. *EX < I > +EX < I -1 ^ ^ *DDT 
GOTO 452 

451 22—KAPH* < EX < I > -EX < I -1 > > *DDT 

452 CONTINUE 

430 E V < I > =EX < I > + < ZZ+V-X > XCMAPH 

C CHANGE ENGINE METAL NODE TEMPS DUE TO COND AND OUTSIDE CONV 
DO 439 1=1 4 

A=KME < 1 > * < TM < 1, n -TW I '• *DDT 
B=KMc < 2 > * < TM < 2, I>-TM<1, I > > *DDT 
TM1 < 1, I >=TM<1, I "» -K 8- A > /CM •' 1 > 

A=KME < 3 > * C TM< 2, I>-TM<?, !>>*DDT 
C*<CFF/4. *RA1*CPFG* < FLAME-T3 A < I > >*DDT>/2. 

TM1 < 2, I >=TM < 2, I :• + < C-A-P. ’> /CM •' 2 > 

B=KME •' 4 > * < TM •' 3 ■ I>-TM<4, I > > *DDT 
TM1<3, I>=TM<3, I > + < A+C ~B "> /CM < 3 '• 

A=k‘ME < 5 > * < TM < 4 . I"' -TM •' 5, I "• +DDT 
TM1 < 4, I =TM f 4 . I > * •' B-P > /CM •' 4 '• 

B=KME < 6 > * < TM <5, I>-TM<6, I>>*DDT 
489 TM1 <5, n =TM < 5 , T > + < A-B '• /CM < 5 > 

C INDEX OF TM1-"K, I"' TO TM<K. I '■ 

DO 422 K=l, 5 
DO 436 1=1.4 
TM-'K, I>=TMKK, I'* 

426 CONTINUE 

422 CONTINUE 

C AVERAGE METAL TEMPEPATUPES FOR ISOTHERMAL NODES 

DO 361 1-1,4 
DO 362 K=2 . 6 

362 TMA' k, I WTM'K, I -.♦TMCk-l. I '• V? 

TMA*'7. n=TM*-6. n 
"61 CONTINUE 

r*+**+ END OF BURNER AND HEAT CONDUCTION SUBPROGRAM 
C ♦ ♦ **+CONTROL PROGRAM PART 2 

C TFST FLAG TO DECIDE WHETHER TO GO ON TO NEXT SUBPROGRAM 


557 


IF I Gi-1 ''401 • 425 425 
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t 


558 

559 
56© 

561 

562 
562 

564 

565 

566 

567 

568 

569 

570 


C+*++*ENGINE TORQUE AND INTERNAL HEAT TRANSFER SUBPROGRAM 

C STEP 1 — CALCULATE NEW ENGINE VOLUMES 

425 X1-SQRT<XA-<RC*SIN<EARAD> > **2> -ROCOS <E ARAD >-XB 

X2-SQRT < XA- < RC*S I N < EARAD+P I2>>**2> -ROCOS < EARAD+P 1 2 > -XB 

X2-SQRT < XA- <RC+SINC EARAD+P I))**2> -ROCOS < E ARAO+P I > -XB 

X4-SQRT < XA- < RC+S I N < EARAD+P 1 32 > ) +*2 > -ROCOS < ERRAD+P 1 32 > -XB 

VHA < 2, 1 ) «RCY* < RC2-X1 > +VHDX 

VC.A <2, 1 > *BCV*X2+VCDA 

VHA <2, 2>=ACV*<RC2-X2>+VHDX 

VCAC2, 2>-BCY*X3+VCDA 

VHA <2, 2 > =RCY* < RC2-X2 ) +VHDX 

VCAC2, 3>=BCY*X4+VCDA 

VHA < 2, 4 > =ACY* < RC2-X4 > +VHDX 


571 

572 

574 

575 


VCA<2, 4 > =BCY*X1+VCDA 
DO 250 1=1,4 

VT <2, I>=VTD+VHA<2, I>+VCA<2, I> 

25© CONTINUE 

C CALCULATE NEW ENGINE SPACE CUMUMATIVE VOLUMES 


576 


578: 

579 

580 

581 • 

582 
58? 
584 ■ 
585 ' 

586 

587 

588 • 

589 


DO 982 1=1, 4 
CVM< 1, I >=VHA(2, I> 

C VM (. 2 • I >=CVM<1, I > +VHM 
CVMv 3, I }=CVM<2, I > +VHD 
CVM<4. n=CVM<2, I >+VRM 
C VM < 5 . I > =C VM < 4, I > +VRD/2. 

CVM'6, I>=CVM<5, I > + VRD/2. 

CVM’'7. I > =0 VM < 6 , I > + VCD 
evr-KS, I>=VT*'2, I> 

982 CONTINUE 

C STEP 2~ CHANGE IN GAS VOLUMES, TEMPERATURES AND GAS NODE INVENTORIES 
C OF WORKING SPACE THAT CAN HAVE ITS GAS INVENTORY ADJUSTED. X= 

C VOLUME OF GAS ADDED < + > OR PEMOVED<-> AT CURRENT PRESSURE AND TEMP. 

C FOP THAT WORKING SPACE 


590 : Y- < P1<IG2> . *PX > **KR 

591 X=VT < 1, IG?.)*-:! -V> 
592 • C GAS INVENTORY CHANGE 


59? IF 102 .. 101, 10:1 

594 C TEMP OF ADDED GAS 


595 

596 

597 

5*8 

599 

600 
601 
602 
60?: 


101 VV=TW I + •' PX/P1 < IG?'> >+*GA 

C MASS ADDED 

M2=RX*X/ •' VV*XC > 

f: NEW TEMPERATURES DUE TO INVENTORY CHANGE 


102 7Z= < PX/P1 < I G3 > > **GA 

DO 807 K-l, 8 

807 TGA < 1, K, I G? '• =TGA < 1, K I G? > *ZZ 
C ADJUSTMENT OF COLD SPACE TEMP WITH GAS ADDITION 

IF Os GT 0>TGA'l, 8- IG?WTGA<1, 8, IG?>*W<1, 8, !G3>+VY*M2 V 


604 

605 

606 

607 

608 

609 

610 
611 
612 
€ 1 ? 


\ • W<1, 8, IG? ’+M2> 

C NEW PPESSUPE DUE T 0 INVENTORY CHANGE 
P 1 '■ I G? "* -PX 

C NEW CUM VOL AND GAS NODE INVENTORIES DUE TO QAS ADDED OP REMOVED 
IF*'X'*800, 801, 801 
C GAS ADDED OP NO CHANGE 

801 DO 802 K=i, 7 

802 C VQ < K • IG2'=CVG'K, IG?-*+V 
l-Kl, 8, IG?"'=Wa. 8. I G“ '■ +M2 
GOTO 80? 
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I'M"** -i*- 


Si 4 . C GAS REMOVED 

615 : 900 22=1 

SIS : DO 904 K«l, 8 

SI? CVG-'k', IG3>=CVG<K, IG3'>*V 

S19 IF<CVG<K, IG2>-CVM<8> IG3>>804, 804. 80S 

S19; 806 IF<22>103. 103, 104 

620 : 104 W<1, K, IG3>=W<1, K, IG3>*<CVM<8, J03>-CVQ<K-J., IG3' V 

S21 : 1 <CVG<K, IG2>-CVG<K-1, IG2>> 

S22 22=0. 

623 : GOTO 105 

S24: 103 W<1,K, IG2>=0, 

625 105 CVGCK, IG2>=CVM<8, IG2> 

S2S 804 CONTINUE 

S27 : C RE -ADD MASSES 

628 : 802 M< IG3"*=0 

629 DO 118 K=l, 8 

630 119 M<IG?^=M<IG3>+W'l, K, IG?'* 

631: C STEP 3-DETERM I NE PRESSURE, TEMPERATURE AND VO' 'ME CHANGES OP ORIGINAL 

632 C VOLUMES DUE TO TOTAL VOLUME CHANGE ASSUMING NO HFPT TRANSFER 

632 D0290 1=1,4 

634 C TOTAL VOLUME RATIO 

625 XX 1 1 > =CVG <8, I > /C VM < 8 . I'« 

636 C NEW GAS TEMPERATURES 
62? XT f T % =XX < I > *+ < KK-1 > 

628 : DO 951 h=l , 8 

639 951 TGA < 1 , K, I > =TGA < 1, K , !>*XT<I> 

640 C CUMULATIVE VOLUMES OF GAS NODES A C TER TOTAL VOLUME CHANGE 

641: DO 983 K=i, 8 

642: 982 CVG<K, I>=CVG*'K, I -'XX I 

643 290 CONTINUE 

644. C STEP 4— COMPUTATION OF TEMPERATURE AND MASS NOW IN EACH 
645: C ENGINE SPACE DUE TO GAS FLOW R"T N r ' HEA T TpqNSC’FP 

646 C THIS VERSION ALLOWS UNL !M T TED MASS FLOW DURING ONE T TMF ST”* 

647 C CALCULATE FOR irZ 1 WORKING SPACES 

648: DO 3*0 1-1,4 

649 C LET K-SOLID INDEX AND L=GAS INDEX 

650 K“1 

651 L=1 

652: C 2ER0 OUT MASS APPAV AFTER MASS FLOW 

653 DO 249 11=1,3 

654 T GA<2, II, I >=0 

655 349 W<2, II n=0 

656: C SET SECOND TIME FLAG 

65? 11=1 

653 C RETURN POINT OF DECISION TREE 
659: 248 IFCCVGCL, I >-CVM<K, I > '•245, 346, 247 

660 : C**** CUM GAS VOL LESS THAN CUM. METAL VOLUME 

661: 345 IF< IP354, 354, 355 

662: 254 11=1 

663. W<2, K, I >=RM 

664 : TGA <2, K, I >=TGA<i, L, I > 

665 : G0T0358 

666: 255 V=W<2,K, I> 

667 W<2, K, I >=W<2, K, I >+W<l, L, I > 

668: TGA <2, K, I>=<TGA<2, K, I }*V+TGA<1, L, I >*W<1, L, I > VW<2, K, I> 

669: 358 CONTINUE 
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670 C INDEX GAS NODE FLAG AND RETURN 
*71 L ~L +1 

672: r CHECK FOR END OF MASS FLOW CALCULATION 

677' I Fa.. OF.. 9> GOTO 210 



C RETURN 

GOTO 248 


*76- C**** CUM GAS VOL EXAOTLV EQUAL TO CUM. METAL VOLUME. 

*77: C CHECK FIRST TIME FLAG 


678 : 246 IF-' 1 1 >810, 810, 850 

678 r ADDITION OF METAL NODE LEADS TO EQUAL VOLUMES 
680- 810 W<£- K- t >=RM 


681 TGA<2. K, I>=OWl , L, I> 

682 GOTO 851 

687 . C ADDITION OF GAS NODE LEADS TO EQUAL VOLUMES 


684 

685 
*86 
687 


689 

690 

691 


r FIND MASS TO COMPLETE METAL NODE SPACE 
950 V=W<2, K, I > 

W < 2 ■ K, I >~W<2, K, IHW.'l , L, I> 

C FIND AVERAGE TEMP OF GAS NOW IN METAL NODE SPACE 

TGA<2, K, I >=<TGfi<2, K, I >*V+TGA<1, L, I >*W<1, L, I > VW<2, K, 
C SET 6 1 PST FLAG 
85:1 11=1 

0 INDEX SOLID AND GAS NODE flags 


692 

697 

694 

695 


L “L+i 
K-K+l 

C CHECK FOR END OF MASS P LOW CALCULATION 
IF <K GE 9 OP l. GE 9^ GOTO 710 


696 


C RETURN 


68? GOTO 348 

698 '•■+*+*■ CUM GAS VOL. GREATER THAN CUM METAL VOLUME. 

699 • 247 IF-'K EQ. 1 AND L EO. ±> GOTO 350 


709 

701 

702 


GOTO 251 

C FIRST NODE FOR GAS AND METAL 

350 H-'2, K, I > -W •' 1 , L, ! >*CVM-'K, I >/CVG<L, I > 


702 

704 

705 


TGAC2, K, I >=TGA<1, L, I> 
PM=W<1. L I >-W<2, K, I > 
GOTO 253 


■'06 

707 

709 

709 


C GENFPAL CASE 
C CHECK FI PST TTME FLAG 

251 IF-: 1 1 >242, 342, 244 
C FTRS T TIME FOR NEW GAS NODE 


710 

711 

712 
712 

714 

715 

716 

717 
7J 8 

719 

720 

721 


244 PP= f CVM < K • I > -CVG <L-1, !>> / < CVG < L, I > -CVG < L-l, I > > 

PM=-"i. -RP>*W<1, L, I> 

X=RR*W<1, L, I> 

V*W<2, K . I > 

W<2, K, I >=W<2, K, I>+X 

TGA<2, K, I >=<TGA<2, K, I >*V+TGA<1, L, I>*X>/W<2, K, I> 
GOTO 353 

C AFTER THE FIRST TIME 

347 RR=<CVM-'K, I >- CVM-'K-l, I > >/<CVG<L, I >-CVM<K-l, I > > 
W<2, K, I>-RM*RP 
RM=PM-W<2, K, I > 

TGA<2, K, I>=TGAa, L, I> 

C RESET FIRST FLAG ON GAS VOLUME SHORT SIDE 
757 11=0 


724 

725 

726 

727 


C INDEX SOLID NODE FLAG 

K=K+1 

C CHECK FOP END OF FLOW CALCULATION 
IF<K. GE. ?> GOTO 310 
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C RETURN 

GOTO 248 

C FIND AND SHOW TOTAL HASS AFTER MASS FLOW 
210 X*0 

00 326 K-1.8 
326 X"X+M<2* K, I> 

ERRFL*M< I >-X 

IFCABS<ERRFL>-. 1>2??. 27?.. 22? 

22? WRITE < J, 220>ERRFL, I 

220 FORMAT < ' FLOW ERROR IS',E10 A,' IN WORKING SPACF 4' I2> 

DO 152 K=l, A 

153 WPITEM. 154 -K. W' l K. I v- W<2.K I >, CVM(K, I > ■ CVG<K f . 

1 TGA'l, K. IV TGA<2. K I - 

154 FORMAT H2. 6F10. 4> 

STOP 

37? CONTINUE 

280 CONTINUE 

C STEP 5— CHANGE IN TEMPERATURE OF GAS AND METAL NODES DUF TO 
C HEAT TRANSFER WITH NO VOLUME CHANGF 
C IN GAS COOLER 
748 DO 6?0 1=1 4 

74?- C HEAT RECEIVED 8V METAL NODE 1 

750 . G?M < 1 '• =C V+W < 2, 2, I > * < TG A < 2 , 2 . I > -TMA '2. I >> /2 

751 C HEAT RECEIVED BV METAL NODE 2 

752 : X»CV*W<2, 2.. I >*'TGA<2, 3, I WMA<7, I '* V2 

752 GM<2>=0Ma>+X 

754 C HEAT RECEIVED BV METAL NODE 2 

755 V=CV*W*'2, 4.. I '»*<' TGA' J 2, 4- I '•-TMR'4, I > V2 

756 QM3>-X+V 

757: C HEAT RECEIVED BV METAL NODE 4 

758 : X=CV*W<2, 5,. I >*«'TGA* 2, 5, I >-TMA»'5. I > V2 

75 - : QM<4 ‘*=V+X 

760: C HEAT RECEIVED BV METAL NODE 5 

761 V=CV+W<2, 6. I >*.'TGA<2, 6, I >-TMA<6, I > V2. 

762 OM ( 5 > =X+ V 

763: C HEAT RECEIVED BV METAL NODE 6 

764 X»CV*M<2, 7, I >*<TGA<2, 7, I >-TMA<7, I • >/2 

765 CM*K6 >=V+X 

766 C HEAT RECEIVED 8V METAL NODE 7 

767. 0M-'7W‘ 

768 C CHANGE IN AVERAGE GAS TEMPERATURES DUE TO HEAT TRANSFER 
76? DO 767 K=2, 7 

770 267 TGA « 2 . K , I > =TM A f K . I '* 

771 C CHANGE IN METAL NODE TEMPERATURES DUE TO HEAT TRANSFER 

772. C-0 382 K=l, 5 

773 TM* K, I >*TM*'K. I '+0M 1 K VTM* K'> 

774 782 CONTINUE 

775 6?0 CONTINUE 

776 C STEP 6 — NEW PRESSURES FOR EACH SPACE DUE TO HEAT TRANSFER WITH NO 

777 C VOLUME CHANGE 

778 DO 740 1 = 1,4 

77« 0: HOT SPACE 

780 P7 1 ' T ■ J '• =W • 2 > 1 I '» ♦ XC*TGA*'2- 1, I V *VHA*'2. I '• 

7ftl C HEATER MANIFOLD 

782 P3< I, 2 '* =W • 2.2-1 >*XC+TGA<£, 2, I VVHM 

783 C HEATER 

784 R3 • T ■ 7 "■ =W ( 2, 2 I "• *XC*TGA'' 2, 2 • I '* . *VHD 
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785 

788 

787 

788 

789 
798 

791 

792 

793 

794 

795 

796 

797 

798 

799 
889 
881 
882 

883 

884 

885 

886 
38? 
888 
*09 
818 
811 
£12 

813 

814 

815 

816 

817 

818 
819 
828 
821 
822 

823 

824 

825 

826 

827 

828 
829 
838 

831 

832 

833 

834 

835 

836 

837 

838 

839 

840 

841 


C REGENERATOR MANIFOLD 

P3<I,4>-M<2, 4/ I>*X,>TGA<2,4, D/VRN 
C REGENERATOR HOT HALF 

P3<I, 5>-M<2, 5, I>«-XU*T0A<2, 5, 1 VCVRD/2. ) 

C REGENERATOR COLD W~ F 

P3<I,6>*H<2,6, I >*XC+TQA(2, 6, I V<VRD/2. > 

C COOLER 

P3< I, 7>-H<2, 7/ 1 >*XC*T0A<2, 7 > 1 >/VCD 
C COLD SPACE 

P3<I,8>«M<2,& X>*XC*TGA<2,8, I>^VCA<2 # X) 

C STEP 7— ADIABATIC PRESSURE EQUILIBRATION AT CONSTANT TOTAL VOLUME 
C FINAL COMMON PRESSURE FOR INCREMENT 
X-VHA<2, I>*P3<I. 1>**KR 
X«X+VHM*P3< I, 2>t"N<R 
X«X+VHD*P3< 1, 3)**KR 
X-Xt-VRM*P3<I,4>**KR 
X-X+VRD/2. *P3< I# 5>**KR 
X-X+VRD/2. *P3< 1, 6>**KR 
X-X+VCD*P3<I,7>**KR 
X*X+VCA<2, 1 >*P3< I, 8>**KR 
P4<I>*<X/VT<2, I>>**KK 

C STEP 7A — GAS NODE TEMPERATURES AFTER ADIABATIC PRESSURE 
C EQUILIBRATION 

DO 133 K-1,8 

133 TGA<2,K, I>»TGA<2,K, I>*<P4<IVP2<I, K)>**GA 

C STEP 7B — CUMULATIVE VOLUMES OF GAS NODES DUE TO PRESSURE 
C EQUILIBRATION 

CVG<1, I >«W<2, 1, I>+XC*TGA<2, 1 , I>/P4<I) 

DO 134 K-2,8 

134 CVGCK, I >-CVG<K-l, I >+W<2, K, I >*XC*TGA<2, K, I >/P4< I > 

C CORRECT SMALL ERROR IN VOLUME 

CVG<8, I>-VT<2, I) 

C STEP 8— INITIALIZE QUANTITIES FOR NEXT INCREMENT 
C TEMPERATURE 

DO 364 K-i, 8 

364 TGA<1, K, I >-TGA<2, K, I ) 

C VOLUMES 

VT<1, I>-VT<2, I> 

VCA<1, I>«VCA<2, I> 

VHA<1, I>*VHA<2, I) 

C PRESSURES 

P1<I>-P4<I> 

C MASSES 

DO 750 K-1,8 

750 W<1,K, I>«W<2,K, I> 

740 CONTINUE 

C STEP 9 — DETERMINE ENGINE TORQUE AT OUTPUT SHAFT 
C INDICATED ENGINE TORQUE, FORCE ON PISTONS, NEWTONS 

FP<1>-100. *<-Pi<i>*ACV*Pi<4>*8CV-<Pl<4>-0. 1>*CCV> 

FP<2)*100. *<Pl<l>*BCV-Pl<2>*ACV-<Pl<l)-0. D+CCV) 

FP<3>-100. *<Pl<2>*8CV-Pl<3>*ACY-<Pl<2>-0. 1>*CCV> 

FP<4>«100. *<Pl<3>*BCY-Pl<4>*ACV-<Pl<3>-0. 1>*CCV> 

C TORQUE ON EACH CRANK, N-M, CCW IS POSITIVE 
TQ<1>«RC/100. *SIN<EARAD>*FP<1> 

TQ<2>«RC/100. *S I N < EARAD+P 12) *FP < 2 ) 

TQ<3)-RC/100 *SIN<EARAD+PI>*FP<3> 

TQ(4>*RC/100. mSIN<EARAD*PI32>*FP<4> 
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842 

942 

944 

945 

546 

547 
545 

949 

950 

951 
552 
853 

554 

555 
856 
957 

858 

859 

860 
861 
962 

863 

864 

865 

866 

867 

868 

869 

870 

871 

872 

873 

874 

875 

876 

877 

878 

879 

880 
881 
882 

883 

884 

885 

886 
887 


C INDICATED TOPPUF c OP ENGINE 

T0I*TQ<i>+TQ<2>+TGK3>*T0<4> 

PAV»rPt<l>4-Pl<2>+Pl<2>*Pl<4'» V4 
C SHAFT TOPOUE FOP ENGINE 
SP*OMEG/<2. *PI> 

TOS«T0I*HE/180. ♦< 99862- 8000145*OMEG**2>*<1 -OMEG* 0O0491* 
1 pfiv**<-l. 841>> 

C*****END OF ENGINE TOPQUE AND INTERNAL H, T. SUBPROGRAM 
C****«CONTPOL PROGRAM PART 3 
790 IF<TIM~TOTT -401, 795, 795 

c +*+ ♦♦final summarv report 

795 WRITE< J. 798 >FUEL, TOTT, SPV1 
798 FORMAT^ ' FUEL, TOTT, SPV1', 3F10. 3> 

5000 STOP 

END 

SUBROUTINE MASSCIG3, PX- MIPi, DDT, X, PI, EADFG> 

DIMENSION PIM) 

PEAL M2, MIR1 
IF<EADEG-45. >860,860-890 
89© IF<EADEG-135. >862, 862, 856 

856 I F<EADEG-225. >864,864,857 

857 IF<EADEG-315. >858. 858, 860 

C GAS CHANGE IN WORKING SPACE 1 

858 IG3-1 

PX*X+ < Pl< 1 > -X > *EXP < -M I Pl*DDT > 

G0T0875 

C GAS CHANGE IN WORKING SPACE 4 
860 IG3=4 

PX=X+ <P1' , 4>-X> *£XP < -MIRl+DDT > 

G0T0875 

C GAS CHANGE IN WORKING SPACE 3 
862 IG2*3 

PX*X*<P1<3>-X>*EXP<-MIP1*DDT> 

G0T0875 

C GAS CHANGE IN WORKING SPACE 2 
564 IG3*2 

PX=X+ < Pi ' 2 > -X > *EXP < -M I PI W > 

875 PETUPN 

END 

SUBROUTINE STANTN<RE, STN> 

I F <P£-2080 > 100, 100, 200 
100 STN«EXP<i 6908-0 9363*ALOG<PE> > 

GOTO300 

200 STN-EXPC-4 0555-0. i803*ALOG<RE’> > 

200 RETURN 

END 
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383 

ftp-* 

890 

891 
$92 
89 ? 
@94 : 
395 
$96 
S97: 
898 
@99 
980 
901 


C SUBROUTINE USED TO ERASE PV DISPLAY FIELD 
SUBROUTINE ERASE 

TNTEGER+1 GS, US, CA. ES* DE ftfV VH- VL, XH, XL 
r>ATA i • US, C8. ES> DE, AA/29, 31, 24, 27. 127- 97X 
DO 30 . . J 710- 1012 
CALL CONOUT -GS- 
CALL CONOUT<ES> 

CfiLL CONOUT <DE> 

YH* s 77?X22+22 
VL*MOD<7?7, 32 >+98 
XH*JP/32+22 
XL ’•MOD*! IP, 32 >+64 
CALL CQNOUT <VH> 

CALL CONOUT -'VL> 


*02 CALL CQNOUT < XH > 

902 CALL CONOUT <XL S 

904 DO 10 1-1,200 

905 M-I+i 

906 10 CONTINUE 

907 VH*2X 22+32 


90$ VL-M0DC2- ?2>+96 
909; CALL CONOUT <TVH> 
910 CALL CONOUT •'VL' 1 


*11 CALL CONOUT <XH> 
*12 CALL CONOUT •'XL * 
*13 DO 20 1*1-200 


*14 11=1 + 1 

915 20 CONTINUE 

916 CALL CONOUT- £S> 

17 CALL CONOUT <AA> 

•=•19 CALL CONOUT- US - 

*1* CALL CONOUT <CA> 

920 CO CONTINUE 


«»21 RETUPN 

922 END 
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6.0 PROGRAM USERS MANUAL 


Thin section gives the directions for using the program described in this 
report. It is sometimes particular to the Altos cosputer used in the prograa 
development but the intent of each instruction is given so that another com- 
puter can also be used. Instructions are as follows* 


6.1 Load Program CNTLA 

A. Turn on computer . 

B. Insert disc. 

C. Type CNTLA (return) 

D. Following message appears on screen 

READ IN 

TYPE 1 LEAVE IN BASE CASE 

TYPE 2 BRING IN STORED DATA FRCM LAST CASE 

When the prograa starts, the data statements are always read. This initiates 
the base case. The program has been used before. A file has been created 
which transfers the input values to program CNTLB. If the operator has 
already made a lot of changes and wants to make some more, he should type 
2 and then key (return) , If he is starting orvantw to start over with the 
base case, he should type 1 and (return) . 

E . Type either 1 or 2 and (return) . 

F. The following directions appear on the screen* 

CNTLA INPUT ADJUSTMENT PRO® AM. TO CHANCE TYPE 2 DIGIT INPUT 
NUMBER, A SPACE, AND TOE NEW INPUT VALUE WITH A DECIMAL POINT. 

TO CONTINUE HIT RETURN. 

G . Hit return . 

H . A table appears on the screen as shown in Table 6.1. To save space 
the input parameters are Identified by numbers only and the value.-; are 
given just by a number. Table 6.2 gives the Identity of each input par-uneter . 
This table is given in numerical order of the input numbers. The symbol 

used in the program, the meaning, the resident value and the units are given. 

Table 6.3 gives the same information organized by subject, if one wants to 
change a particular operating condition, it would be easier 1 look up the 
variable number in Table 6.3* Table 6.2 would be useful if the question is 
what a particular variable number means or if additional variables are 
needed to be added, 

I . To change a variable type the variable number, a space and then 
the new variable value with a decimal point in the appropriate place. After 
pressing ( return) , the change menue is redisplayed with the new change. 

This process may be repeated as many times as desiied. When calculation is 
to proceed, type 99 and ( return) . The word STOP will show on the screen 
when the program is finished and the intermediate values have been filed in 
F0RT10.DAT. Also the prompt :> A will appear. The operator is now finished 
with CNTLA. In fact, he is out of it. 
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Able 6.1 


INPUT PARAMETER TABLE FOR BASE CASE 


* 

01 

922.200 

* 

02 

50.000 

* 

83 

300.000 

4> 

04 1575.800 

4c 

05 

48. 000 4> 

* 

06 

300. 000 

* 

07 

.500 

* 

08 

90.800 

4c 

09 

1 

4c 

10 

. 540 4c 

* 

11 

36. 000 

# 

12 

.472 

* 

13 

4.850 

4c 

14 

90 oaa 

4> 

15 

7. 950 4. 

♦ 

16 

1.000 

* 

17 

1.000 

* 

18 

30.000 

4> 

19 

90.000 

4> 

20 

22. 400 4. 

* 

21 

2 325 

4c 

22 

13.650 

♦ 

23 

10. 168 

4c 

24 

4.060 

4c 

25 

. 472 4. 

* 

26 

084 

* 

27 

36.000 

* 

28 

11.590 

4c 

29 

6.000 

4c 

30 

3. 500 4> 

♦ 

31 

2. 580 

* 

32 

. 200 

♦ 

33 

0.000 

4c 

34 

0.000 

4c 

35 

0. 000 * 

* 

36 

196. 020 

* 

37 

.950 

4c 

38 

. 115 

4c 

39 

12 900 

4c 

40 

312. 000 * 

* 

41 

1100. 000 

* 

42 

36.000 

4c 

43 

. 472 

4c 

44 

1. 120 

4c 

45 

7. 950 4. 

* 

46 

.640 

* 

47 

25.580 

4c 

48 

.010 

4c 

49 

10.000 

4c 

50 

5. 000 4. 

* 

51 

.300 

♦ 

52 

50.000 

4* 

53 

500 

4c 

54 

10.000 

4« 

55 

. 084 4> 

* 

56 

1000. 000 

* 

57 

150.000 

4* 

58 

16.550 

4c 

59 

8000 

4c 

60 

46. 432 4- 

* 

61 

1.000 

* 

62 

1.000 

4c 

63 

2.000 

4c 

64 

4.470 

4c 

65 

13. 420 4> 

* 

66 

1.500 


67 

.580 

4> 

68 

.410 

4c 

69 

1.270 

4c 

70 

. 381 * 

* 

?i 

.041 

* 

72 

10.038 

4c 

73 

.200 

4> 

74 

.017 

4c 

75 

. 381 4. 

* 

76 

1.000 

* 

77 

2.000 

4c 

78 

i. 000 

4c 

79 

50.000 

4c 

80 

5. 000 4. 

* 

81 

1.000 

* 

82 

5.000 

4* 

83 









II XXXXXXXXXX TYPE 99 TO CALCULATE' AND FILE INTERMEDIATE VALUES 
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Table 6.2 


CNTLA CHANGE TABLE BY NUMBER 


Number 

Tymbcl 

Meaning 

Resident 

Value 

Units 

1 

THMG 

Temperature i hot metal, goal 

922.2 

K 

2 

TPB 

Temperature, proportional band in hot metal 

50. 

K 

3 

TNI 

Temperature, water, inlet 

300 . 

K 

4 

PWI 

Flow of cooling water for entire engine 

1575. 

g/sec 

5 

CM 1 

Desired idle speed of engine 

40. 

rad/sec 

6 

T1 

Ambient air temperature 

300 . 

K 

7 

DT 

Initial time step 

0.5 

sec 

8 

ME 

mechanical efficiency, engine 

90. 

% 

9 

Z 

Flag for working fluid* 1 for H , 2 far He, 
3 for air 

1 

— 

10 

RGE1 

Vehicle travel per engine revolution in 
first gear 

0.54 

meters 

U 

NTttl 

Number of tubes in heater manifold 

36 

— 

*2 

DIHM 

Inside diameter of tubes in heater manifold 

0.472 

cm 

13 

FFF 

Full fuel flow 

4.85 

g/sec 

14 

THU 

Time for engine warm-up, before cranking 

20 

sec 

15 

LHM 

Length of tubes in heater manifold 

7.95 

cm 

16 

TCR 

Duration of starting motor torque 

1.0 

sec 

17 

TID 

Idle time after cranking 

1.0 

sec 

18 

TAC 

Vehicle acceleration time 

30 

sec 

19 

TOTT 

Total simulation time 

90 

sec 

20 

SPM 

Cruising speed of vehicle 

22.4 

m/sec 

21 

RC 

Radius of engine crank 

2.325 

cm 

22 

LCR 

Length of connecting rod 

13.65 

cm 

23 

DCY 

Diameter of cylinder 

10.16 

cm 

24 

DDR 

Diameter of drive rod (at seal) 

4.06 

cm 

25 

DIH 

Inside diameter of heater tubes 

0.472 

cm 

26 

WTHM 

Wall thickness of tubes in heater manifold 

0.084 

cm 

27 

NTH 

Number of heater tubes per cylinder 

36 

— 

28 

VHDX 

Extra hot dead volume in end clearance and 
hot cap clearance per cylinder 

11.59 

crn-^ 

29 

NR 

Number of regenerators per cylinder 

6 

-- 
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Table 6.2 (continued) 


Number 

Symbol 

Resident 

Meaning Value 

Units 

30 

DR 

Diameter of each regenerator 

3.5 

cm 

31 

LR 

Length of regenerator 

2.5 

cm 

32 

PF 

Fraction of regenerator voltane filled with 
solid (if zero program calculates FF 
from dimensions below) 

0.2 


33 

NS 

Number of screens per regenerator 

0.0 

— 

34 

MSH 

Mesh size 

0.0 

wires/cm 

35 

THW 

Thickness of wire In screens of regenerator 

0.0 

cm 

36 

VCDX 

Cold dead volume not in gas cooler or cold 
space 

196.02 

3 

enr 

37 

FCA 

Fraction of VCDX that is adiabatic 

0.95 

— 

38 

DIC 

Diameter of inside of cooler tubes 

0.115 

cm 

39 

LC 

Length of cooler tubes 

12.9 

cm 

40 

NTC 

Number of cooler tubes per cylinder 

312 

— 

41 

MIV 

Mass, inertia of vehicle 

1100 

Kg 

42 

NTRM 

Number of tubes in regenerator manifold 

36 

— 

43 

DIRM 

Inside diameter of tubes in regenerator mani 
fold 

- 0.4?2 

cm 

44 

AFR 

Frontal area of vehicle times shape 
coefficient 

1.12 

m 2 

45 

LRM 

Length of tubes in regenerator manifold 

7.95 

cm 

46 

DOH 

Outside diameter of heater tubes 

0.640 

cm 

47 

LHH 

Heated length of heater tubes 

25.58 

cm 

48 

1MAPH 

Thickness of metal separating each flow 
passage in air preheater 

0.01 

cm 

49 

LAPH 

Length of air preheater 

10.0 

cm 

50 

WAFH 

Width of each air preheater passage 

5-0 

cm 

51 

TAPH 

Thickness of each air preheater flow passage 

0.3 

on 

52 

naph 

Number of air preheater flow passages in 
each direction 

50 

— 

53 

PRL 

Pressure of working gas in low pressure 
reservoir 

0.5 

MPa 

54 

PRH 

Pressure of working gas in high pressure 
reservoir 

10.0 

MPa 

55 

WTRM 

Wall thickness of tubes In regenerator 
manifold 

0.084 

cm 
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Table 6.2 (continued) 


Number 

Symbol 

Meaning 

Resident 

Value 

Units 

56 

TST 

Starting motor torque 

1000. Newton- 
meters 

57 

MIR 

Maximum time constant for changing working 
gas pressure 

150. 

sec” 1 

58 

RAF 

Mass ratio of air to fuel 

16.55 

g/g 

59 

NO 

Number of nodes in air preheater 

8 

— 

60 

LHV 

Lower heating value of fuel 

46.432 

Kj/g 

61 

GOT 

Gear change time 

1.0 

sec 

62 

RGE2 

Vehicle travel per engine revolution In 
second gear 

1.0 

meters 

63 

RGE3 

Vehicle travel per engine revolution in 
third gear 

2.0 

meters 

64 

VSP2 

Vehicle speed to change to second gear 

4.47 

m/sec 

65 

VSP3 

Vehicle speed to change to third gear 

13.^2 

m/sec 

66 

THH 

Thickness of tot cylinder head 

1.5 

cm 

67 

TRH 

Thickness of regenerator head 

0.5 

cm 

68 

RWT 

Average regenerator wall thickness (for 
heat conduction) 

0.41 

cm 

69 

TOY 

Average engine cylinder wall thickness 
(for heat conduction) 

1.2? 

cm 

70 

THC 

Thickness of tot cap cylinder 

0.381 

cm 

71 

G 

Gap between hot cap and cylinder wall 

0.0406 

cm 

72 

HCL 

Hot cap length 

10.03 

cm 

73 

KM 

Thermal conductivity of engine walls 

0.2 

w/cm K 

74 

KMX 

Thermal conductivity of regenerator matrix 

0.017 

w/cm K 

75 

THCH 

Thickness of hot cap head 

0.381 

cm 

76 

Q1 

Graphic option, 1 for yes 

1.0 

-- 

77 

Q2 

Printout option, 5 to console, 2 to printer 

2,0 

-- 

78 

Q3 

Periodic report printout option, 1 for yes 

1.0 

-- 

79 

EIN 

Engine inertia 

50 

Kg m 2 

80 

PBIS 

Proportional band on engine idle speed 

5.0 

rad/sec 

81 

PBVS 

Proportional band on vehicle speod 

1.0 

m/sec 

82 

TREP 

Time interval for periodic report printout 

5.0 

sec 
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Table 6.3 

CNTLA CHANGE TABLE ORGANIZED BY SUBJECT 


Subject 

No. 

Symbol 

Resident 

Value 

Units 

Solution output control 
Graphics flag (l for yes) 

76 

Q1 

1.0 

— 

Output flag (2 for printer, 5 for screen) 

77 

Q2 

2.0 


Periodic report flag (l for yes) 

78 

Q3 

1.0 

— 

Time interval between printouts 

82 

TREP 

5.0 

sec 

Initial time step 

7 

DT 

0.5 

sec 

Nodes in air preheater 

59 

NO 

8 

— 

Driving Cycle 
Warm-up time 

14 

THU 

20. 

sec 

Cranking time 

16 

TCR 

1.0 

sec 

Cranking torque 

56 

TST 

1000. 

N-m 

Idling time 

17 

TW 

1.0 

sec 

Desired idle speed 

5 

OKI 

40. 

rad/ sec 

Proportional band on Idle speed 

80 

PBIS 

5.0 

rad/ sec 

Acceleration time 

18 

TAC 

30. 

sec 

Cruising speed 

20 

SPM 

22.4 

m/sec 

Total simulation time 

19 

TO IT 

90. 

sec 

Proportional band on vehicle speed 

81 

PBVS 

1.0 

m/sec 

Gear ratio, vehicle travel/revolution 
first gear 

10 

RGE1 

0.54 

m 

second gear 

62 

RGE2 

1.0 

m 

third gear 

63 

RGE3 

2.0 

m 

Gear change speeds 
to second gear 

64 

VSP2 

4.47 

m/sec 

to third gear 

65 

VSP3 

13-42 

m/ sec 

Time to change gears 

61 

GCT 

1.0 

sec 

Maximum time constant for changing 

57 

MIR 

150 

sec"*' 

working gas pressure 





Engine Operating Conditions 
Temperatures 

goal for hea'^r tubes 

1 

THMG 

922.2 

K 

proportional band on heater tubes 

2 

TPB 

50. 

K 

water inlet 

3 

TWI 

300 

K 

ambient air 

6 

T1 

300 

K 


Table 6.3 (continued) 


Subject 

No. 

Symbol 

Resident 

Value 

Units 

Engine Operating Conditions (continued) 
Pressures 

low reservoir 

53 

FRL 

0.5 

MPa 

high reservoir 

54 

PKH 

10.0 

MPa 

Working fluid (l for H ,2 for He, 3 for air) 9 

Z 

1 

— 

Flows 

maximum fuel 

13 

FFF 

485 

g/sec 

cooling water 

4 

FWI 

1575 

g/sec 

Lower Heating Volume of Fuel 

60 

LHV 

46.432 

K j/g 

Ratio of air to fuel 

58 

RAF 

16.55 

g/e 

Engine Dimensions 
Vehicle 

inertial mass 

41 

MIV 

1100 

Kg 

frontal area times space coefficient 

44 

AFR 

1.12 

m 2 

Air preheater 

plate thickness 

48 

TMAPH 

0.01 

cm 

length 

49 

LAPH 

10. 

cm 

width of each passage 

50 

WAPH 

5 

cm 

thickness of each passage 

51 

TAPH 

0.3 

cm 

number of air passages each way 

52 

NAPH 

50 

— 

Hot and cold spaces 

Diameter of engine cylinder 

23 

DCY 

10.16 

cm 

thickness of engine cylinder wall 

69 

TOY 

1.27 

cm 

end clearance and hot cap clearance 
volume 

28 

VHDX 

11.59 

cnr 

thickness of head 

66 

THH 

1.5 

cm 

gap between hot cap and cylinder wall 

?1 

G 

0.0406 

cm 

length of hot cap 

72 

HGL 

10.03 

cm 

thickness of hot cap cylinder 

70 

THC 

0.381 

cm 

thickness of hot cap head 

75 

THCH 

0.381 

cm 

thermal conductivity of engine metal 

73 

KM 

0.2 

w/cm K 

diameter of piston drive rod 

24 

DDR 

4.06 

cm 

Heater manifold 

number of tubes per cylinder 

11 

NTHM 

36 

-- 

in»iLde diameter 

12 

DIHM 

0.472 

cm 

length 

15 

LHM 

7.95 

cm 

wall thickness 

26 

WTHM 

0.084 

cm 
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Table 6.3 (continued) 


Subject 

No. 

Symbol 

Resident 

Value 

Units 

Engine Dimensions (continued) 
Heater 

ID of tubes 

25 

DIH 

0.472 

cm 

tubes per cylinder 

27 

NTH 

36 

— 

outside diameter 

46 

DOH 

0.640 

cm 

tested length 

47 

LHH 

25.58 

cm 

Regenerator manifold 

number of tubes per cylinder 

42 

NTRM 

36 

-- 

ID 

43 

DIRM 

0.472 

cm 

length 

45 

LRM 

7.95 

cm 

wall thickness 

55 

WTRM 

0.084 

cm 

Regenerator 

thermal conductivity of matrix 

74 

KMX 

0.017 

w/cm K 

number per cylinder 

29 

NR 

6 

— 

diameter 

30 

DR 

3.5 

cm 

length 

31 

LR 

2.5 

cm 

wall thickness 

68 

RWT 

0.41 

cm 

fraction of matrix filled with solid 

32 

FF 

0.2 

— 

number of screens per regenerator 

33 

NS 

0 . 

— 

mesh size 

34 

MSH 

0.0 

wires/cm 

thickness of wire in regenerator 

35 

THW 

0.0 

cm 

thickness of regenerator head 

67 

TRH 

0.5 

cm 

Cooler 

number of tubes per cylinder 

40 

NTC 

312. 

— 

length of tubes 

39 

LC 

12.9 

cm 

ID of tubes 

38 

DIC 

0.115 

cm 

Cooler manifold 0 

dead volume 

36 

VCDX 

196.02 

enr 

fraction adiabatic 

37 

FCA 

0.95 

— 

Drive 

cylinders per engine 

— 

— 

4 

— 

radius of crank 

21 

RC 

2.325 

cm 

length of connecting rod 

22 

LCR 

13.65 

cm 

engine inertia 

79 

BIN 

50 

Kg m 2 

mechanical efficiency 

8 

ME 

90 

% 


V 
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Besides being able to change any input variable involving engine dimensions 
and operating conditions , there are some computer solution options that 
should be discussed here. 

Number 76 - Graphic Flag. If #76 is 1.0, then CNTLB will go into the 
graphic parts of the program . If #76 is 0.0, it will not. If the computer 
does not have graphic capability or the operator does not want to use it, 
#76 should be 0.0. 

Number 77 - Output Flag. If #77 is 2.0, then CNTLB will direct its 
periodic and final output to the printer. If #77 is 5.0, it will be 
directed to the screen on the console. If #77 is 2.0, be sure the printer 
is on or the solution will stop with no Indication of why. 

Number 78 - Periodic Report Flag. If #78 is 1.0, a periodic report is 
printed out or displayed. If in CNTLB #78 is 0.0, then CNTLB will not 
produce periodic reports. 

Number 82 - Repetition Rate for Periodic Reports. #82 gives the desired 
number of seconds between periodic reports. Alter this desired time is 
exceeded, the next periodic report will be given. This number is useful 
in controlling the amount of output from CNTLB to give an adequate but not 
overwhelming amount. 

Number 7 - Initial Time Step. #7 gives the time step used in the heat up 
section of the solution at the start of CNTLB, The program WARM (Appendix 
A) was used to show that 8 nodes and a time increment of 0.5 second gives 
adequate accuracy for the solution. #7 can be changed for other time 
steps. When the engine starts rotating, the program automatically adjusts 
the time step. 

Number 59 - Nodes in Air Preheater. Presently the number of nodes in the 
air preheater is fixed at 8. It cannot be changed in CNTLA. It can in 
WARM (see Appendix A) . 

CNTLA produces a data file called F0RT10.DAT which is read by CNTLB. The 
information is transferred by the position in this data file. Therefore, 
the write statements in CNTIA and the read statements in CNTLB must be 
identical. Table 6.4 shows the file for the base case. 


6.2 Load Program CNTLB 

A. Type CNTLB (RETURN) . 

B. Be certain printer is on. (Base case has the intermediate printout 
go to the printer every 5 seconds of real time.) 

C. The message FILE READ appears on the screen. This shows that the 
data file prepared by CNTLA has been read in. 

The solution then proceeds as required by the contract without any operator 
attention. Pressing the CNTL key and S at the same time will stop the 
solution or start it again. 
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Table 6.4 


DATA TRANSFER FILE FOR BASE CASE 
(Called F0RT10.DAT) 

(See listing of either CNTLA or 
CNTLB for identity of numbers) 


922 200 

50. 000 

300. 000 

1575. 000 

40. 

000 

200 000 

500 

90. 000 

540 


800 

26, 000 

472 

850 

20. 000 

7. 

950 

1 000 

1, 000 

20 000 

90 000 

22. 

400 

2. 225 

13. 650 

10. 160 

4. 060 


472 

084 

36. 000 

11. 590 

6 000 

3! 

560 

2 500 

. 200 

0 000 

0 000 

0. 

000 

196 020 

950 

. 115 

12 900 

212. 

000 

1100. 000 

36. 000 

. 472 

1 12* 

7 

950 

640 

25. 580 

010 

10. 000 

5, 

000 

200 

50 000 

500 

10 000 


084 

1000 000 

150 000 

16 550 

8. 000 

46. 

422 

31 250 

75. 000 

17 559 

21 060 


566 

29. 67? 

2204. 748 

2. 182 

36. 664 

2. 

696 

0 000 

294 682 

185.1. 537 

636 298 

0 

090 

660 

0. 000 

161 131 

115. 454 

135. 

947 

51, 606 

186. 219 

428. 346 

186. 222 

11 

325 

81. 073 

68 127 

4. 712 

4. 650 

12. 

946 

0. 000 

0. 000 

0 000 

0. 000 

1. 

000 

388, 581 

216. 256 

11. 590 

216 256 

331. 

026 

503 010 

231. 026 

186. 219 

1147. 953 

1147 

612 

770 962 

870 821 

1. 029 

. 743 

29 

000 

286 

1 286 

278 

722 


287 

0 000 

0 000 

50 078 

50. 078 

1 

000 

2 000 

d 470 

12 420 

1. 500 


500 

41* 

1 370 

381 

. 041 

10 

020 

200 

017 

281 

1. 000 


000 

1 00* 

50 000 

1 051 

113 


041 

112 

5 113 

5 113 

2173. 006 

342 

791 

426 912 

2C>'Ci 771. 

40 7*3 

5 000 

1. 

00* 


5. 00C 
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In order to always be in touch with the solution, a line of 8 numbers in 
exponential format are always read to the console for every time step. 

Table 6.5 is the heading for this readout. 

Periodically, as determined by the program, if the periodic printout 
option is on, a more complete readout is made either to the oonsole or to 
the printer. Table 6.6 shows the heading for this output. 

The definition of the metallic nodes called out in Table 6.6 is as 
follows i (See Figure 4.9.) 

1. Around hot space 

2. Between heater manifold and heater 

3. Between heater and regenerator manifold. 

4. Hot end of regenerator 

5. Middle of regenerator 

6. Regenerator end of cooler 

Figure 3*3 gives the nomenclature for this engine. 

If the graphic option is on , the following values are displayed to the screen, 

A. Scheduled as a function of time 

1. Engine speed up until start of cranking 

2. Vehicle speed 

B. Ticks on left hand border of display to showj 

1. Temperature goal for heater metal 

2. Cooling water temperature 

C . Plotted as time progresses versus time 

1. Current fuel flow rate (over full height of display) (Starts 
out at maximum.) 

2. Temperatures on the scale determined by the two ticks 

a. Flue gas leaving heaters and entering air preheater 

b. Average heater metal temperature 

c. Flue gas leaving air preheater 

d. Average of metal around hot spaces 

e. average of metal around hot end of regenerators 

f . average of metal at middle of regenerators 

3. Engine speed on scale determined by specified idle speed 

4. Vehicle speed — compared with desired vehicle speed 

D. Pressure- volume work diagrams for the four working spaces. Thes«’ 
axe on the right side of the screen. Four boxes are drawn. The 
top box is for working space #1, the second is for working space 
#2, and so on. Full scale for the pressure is the high pressure 
gas reservoir. The bottom of each scale is zero pressure. 

The temperature plots must be differentiated by comparing the plot with the 
periodic printout which also contains the same values. 

At the end of the program three numbers are displayed. These arei 

1. Total fuel consumption, grams 

2. Total time, seconds 

3. Vehicle speed at end of cycle, m/sec 
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HEADING FOB CONSOLE OUTPUT EVERY TIME STEP 
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There Is an error trapping routine in the program which lb activated if 
mass in a working space is changed during Step 4 of the engine torque and 
Internal heat transfer subprogram Unless sons changes are made this routine 
will not stop the program. If for some reason this routine is activated , 
the following message is printed out or displayed on the screens 

Flow error is in working space # , 

Following thin is printed out or displayed 8 rows of 7 numbers which help 
determine where the problem is. The 8 rows are the eight nodes. Within 
each row the numbers give the following values from left to right. 

1 . Node number 

2. Mass of gas in node at start of time step 

3. Mass of gas in node at end of time step 

4. emulative volimec in the solid 

5. Cumulative volumes in the gas 

6. Average gas temperature at the start of time step 

7> Average gas temperature at the end of time step 


7.0 SOLUTION OF BASE CASE 


The original expectation was that the solution using the programs described 
herein could be checked with the steady state power output and efficiency 
given by General Motors for the 4L23 machine ( 6 ) . However, this was not 
done because the engine power output and efficiency were not calculated . 

It would rot be difficult to add both power output calcuation and the effi- 
ciency and heat balance calculation since most of the programming has already 
been done. 

The input values for the base case are given in Tables 6.1, 6.2 arid 6 . 3 . 

Based upon this input the periodic output is given on Table 7.1. A line has 
been drawn to separate the periodic outputs. The key to what these numbers 
mean is given in Table 6 . 5 . 

Figure 7*1 chows the graphical output at the end of the solution of the base 
case. Figure 7.2 shows the solution part way along to show how the four 
pressure volume diagrams appear. Figure 7.3 shows how the screen looks 
with the display every time step superimposed . As an aid to interpreting 
what is seen 0 ^ the screen, the data plotted on the screen are also plotted 
In Figure 7.^ using the data from Table 7.1. 
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Fhotograph o*' Complete GrapUcH Output from Screer. (:.c shift 
to third gear) . 
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Figure ?.4. Base Case Results from Periodic Printout. TUC, SECONDS 


Table 7*1 


PERIODIC OUTPUT FOR BASE CASE 
(See Table 6.5 Tear headings) 
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Table ?.l (continued) 
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Table 7.1 (continued) 
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347. 416 98. 000 22. 482 




Engine fuel flow 

■ 3.74 g/sec. Engine speed * 70,4 radians/sec. Total engine 

revolutions ■ 740. 








The Identity of the lines on Figure 7.1 can be sorted out by comparing 
Figure 7.1 with Figure 7.4. Figure 7*4 is much less detailed since it is 
derived from Table 7*1 for every 5 seconds of real time. 

Fuel flow in graphed In Figure 7*1 over the full vertical scale. A smaller 
scale was used in Figure 7*4. The fuel flow varies widely. It is at its 
maximum at the start as the engine is heating up and then at two other per- 
iods when the engine is working at full capacity. At the end of the driving 
cycle the fuel flow is still oscillating but appears to be damping out. 

The top channel on the left in Figure 7.1 is for vehicle speed. The desired 
vehicle speed is drawn at the start of the solution. The calculated speed 
is superimposed upon this ramp and cruise. The calculated speed rushes 
ahead of the desired speed as the vehicle is put into first, second, and 
third gear. Possibly the engine has been assigned too much inertia. The 
vehicle coasts until the speed is back on schedule. 

The next channel down on the left of Figure 7*1 is for engine speed. It 
attains idle speed within the two seconds before getting in hear. As the 
gear ratio changes in one second, there is very little reduction in engine 
speed. This is another indication of an unrealisticly high engine inertia. 

Tho final channel on the left is for engine and air preheater temperatures. 
The order of the temperatures from top to bottom soon after the engine starts 
are i 

1. Flue gas leaving heater and entering preheater. 

2. Flue gas leaving preheater. 

3. Average heater metal. 

4. Average mid -regen era tor metal. 

3. Average top of regenerator metal. 

6. Average hot space metal. 

These graphs show that the base case air preheater is inadequate and must 
be improved. The heater temperature takes a serious dip during second gear 
but recovers after the shift to third gear. Figure 7.4 shows that the cal- 
culated heater temperatures are quite different at the two ends. Half the 
heat from the burner is made to go to node #2 and half to node #3. There is 
a wide difference in temperature between these two nodes. Node #3 which is 
nearest the cold side of the engine is colder. After the engine reaches its 
cruise speed, there is a slow but pronounced divergence in individual node 
temperatures for nodes #2 and #3. Other metal node temperatures are less 
affected. Although data to this detail were only recorded every five 
seconds of real time, a particular heater node was always consistently 
high ur low or in between. The author currently has no explanation for 
this behavior. 

The next line down Ln Figure 7*1 has a sawtooth appearance. The temperature 
of metal node #5 at the midpoint of the regenerator rises when the engine 
pressure rises and falls when the engine pressure falls. The temperature 
falls at low pressure because conduction to the cold part of the engine is 
mare important than convection from gas passing through the heater . This 
node attains its expected temperature midway between the heater and cooler. 
Note that the plotting of the individual node 5's during the acceleration 
phase indicates that this temperature cycles over about 50 K during an 
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engine cycle. Eventually this node temperature is lower than any of those 
plotted. 

The next line in Figure ?.l starts just below node 5 but is mere stable. 

This is metal node 4 which is at the hot end of the regenerator. It is 
surprising that this node temperature settles out so close to the middle 
of the regenerator. This may be due to the low power the engine has to 
put out during cruise. 

The final temperature line in Figure ?.l is for metal node 1, the metal 
around the hot space. It starts out the lowest and ends up next to the 
lowest. One would expect that this node would attain heater temperature. 
However, at very low load like during cruise, heat conduction to the heat 
sink draws this temperature way down. 

In conclusion, this computer program at this stage in its development gives 
reasonable looking answers. However, anyone who has worked with large com- 
puter programs knows there may be a number of important errors left in these 
programs. 

Finally, the problem of the proper angle increment for the solution has not 
been resolved. With a ? to 30 degree angle increment reasonable PV dia- 
grams were drawn. It was feared that since the dead volume of the cooler 
is so small that with a 7 to 30 degree angle increment much gas might pass 
through the cooler in one time step without being affected by it. The only 
way to simulate transient thermal effects is to slow down the solution so 
that all the gas passing either way is affected by the cooler. To do this 
efficiently the angle increment limit should be made a variable and its 
effect should be investigated by a number of complete ruins. Since each run 
takes all day, this work was left for the future. 
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8 .0 CONCLUSIONS AND SUGGESTIONS FOR ADDITIONAL WORK 


A computer program has been written and perfected and fully documented that 
Mill calculate the transient response of a Siemens arrangement Stirling engine 
similar to the General Motors 4L23 or the current United Stirling engines. 
Eighty-two different variables can be changed to adjust the solution to the 
needs of the calculator and the computer being used and to specify exactly 
the engine dimension and the operating condition for the engine and the 
vehicle . 

The computer program models an engine which uses working gas pressure as a 
means of controlling power. The mode of controlling the heater tube temper- 
ature and either the engine or vehicle speed is by proportional control. 

With this program as a basis the following additional tasks are suggested! 

1. Determine the effect of having the four cylinders in unison instead 
of at 90° phase angle. The calculation normally goes for many hundreds if 
not thousands of revolutions. The effect on the driving cycle will probably 
not be significant but calculation speed would be quadrupled. 

2. Obtain 16 steady state operating points after the program has been 
modified to have averaged power output and efficiency over a specified time 
period. Compare with a standard and make adjustment in the dimensions or 
other parameters. 

3. Adapt the program to prediction of the transient performance of 
the Department of Energy Mod I engine in the vehicle that is planned for it. 
This will require finding all dimensions including thermal conductivities, 
moment of inertia, seal and mechanical friction, etc. 

4. Compare this program and the version proposed in #1 above to that 
program published by Daniele and Lorenzo (4) . Compare on the basis of 
solution time and accuracy. 

5- Adapt either the current program or the one cylinder modification 
(#1 above) to a calculated, realistic heat transfer in all gas spaces. That 
is, the hot and cold spaces would not always be adiabatic and the heat 
exchangers would have the heat transfer coefficients expected for the instan- 
taneous flow. Show how the gas and metal temperatures vary during the cycles. 

6. Add variable stroke control to the program. 

7. Predict the transient and steady state response of the Advenco 
engine now at NASA-Lewis. 

This computer program was developed on a good quality microcomputer with 
high resolution graphic c affabilities. With only the graphic output plus 
the single time display per time step the full base case of 90 seconds real 
time was run in 3 hours 45 minutes. The graphic display plus the printouts 
if desired would be adequate record of how well a particular method of 
control worked. 
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APPENDIX A 


TEST PROGRAM, WARM, FOR 


Introduction 

It was found that in order to perform a 90 second simulation of a simple 
driving cycle, it was necessary to repeat the calculation scheme approxi- 
mately 35*000 times. The burner simulation is a significant part of the 
calculation scheme. No only does it account for about one-fifth of the 
program lines, it also includes Z subroutine calls and multiple use of the 
exponential and log functions, all of which cause the computer to spend a 
large percentage of its executive time in this area. In order to reduce the 
8 hour executive time required by the Altos computer and to simplify the 
main program, it was decided to attempt to create the WARM .FOR program. 

WARM. FOR would include the burner simulation from CNTLB.FOR, and would 
hopefully generate a simple relationship between burner efficiency and heat 
required by the heater tubes. Of TLB. FOR would then require only a few 
equations to preduct fuel consumption as a function of engine heat require- 
ment. 

Node Arrays 

One of the first modifications to the burner simulation was to increase the 
nunber of calculation nodes of the air preheater. Originally only four nodes 
were accounted for, but it was decided to use arrays instead of single 
variables. Tests were performed to determine the accuracy or the burner 
efficiency as a function of the number of nodes used in the calculation. It 
was found that by using 20 nodes, the calculated burner efficiency was 
within .% of the efficiency calculated using 99 nodes. When using 99 
nodes, the simulation requires b(#> more time than the 20 node simulation 
requires. It was decided the \ percent was not worth the prolonged calcula- 
tion time. The four node simulation was about 7* % low so the 20 node simu- 
lation was used as a good compromise. 

Time Increment 


Regardless of the size of the program, if the calculations need to be exe- 
cuted twice as many times, then the time requirement doubles. A test was 
performed to determine how often burner calculations had to be made so that 
reasonably accurate nunbers would be generated. It was found that by using 
.05, .1, and .5 second Increments, the calculated burner efficiencies 
agree to \ percent. However, when the one second time increment was used, 
the nunbers generated became erratic and 3fflciencies of over 100J6 were cal- 
culated. As a result it was recommended that a .5 second time increment be 
used. 

The results of the time increment and metal node test are shown in Table Al. 
A sample table generated by WARM. FOR for 20 nodes and .5 second increment is 
shown in Table A2. 
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S UPU EH EFFICIENCY AT START AND END OF 90 SECOND HEAT LOADS 

(20 second warui-up) 
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CALCULATION TIKE INCREMENT 






Table A.l (continued; 

BURNER EFFICIENCY AT START AND END OF 2 CONSECUTIVE 90 SECOND HEAT LOADS 

(20 second warm-up) 



CALCULATION TIME INCREMENT 



i. 4114 


Burner Correlation 

In order to simplify the burner calculations for the CN TLB. FOR program, two 
correlations were necessary » 

1. turner efficiency as a function of engine heat requirement. 

2. burner efficiency as a function of time after the heat requirement 
ci'^r "es significantly (transient condition) . 

The second correlation was attempted first, using WARM. FOR a 1000 second 
duration. The burner efficiency was calculated as a function of time for a 
20 second warm up and one constant heat requirement. Three points were taken 
from the first 100 seconds of simulation and an effort was made to discover 
a function described by the three points that would indicate the burner 
efficiency at 1000 seconds. Two methods were used, a power curve fit 
using the IP -b7 curve fitting routine and a more direct method involving 
the solving of three simultaneous equations with three unknowns. The results 
are shown in Figure A.l. A non-linear extrapolation of this size is, of 
course, very difficult. Since the closest correlation was 2% off for this 
simple example, it was decided that the burner calculations should be an 
integral part of the main control program (CNTLB.F0R) if any reasonable 
accv racy is desired. 



600 800 
Time, Seconds 


Figure A.l. Burner Efficiency Versus Time. 
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Utility of WARM. FOR 


Although WARM, FOR cannot be used to generate a simple correlation for use 
in CNTLB.FOR, it can be used to determine burner efficiencies and air pre- 
heater temperatures as a function of time for various heat requirements. 

Of most value are the plots of various burner temperatures and burner effi- 
ciency as a function of time. A worthwhile addition to the program wouiu 
be to calculate the heat requirement of the ether metal parts of the er;l* . 
as warm up occurs. 

Input 

A sample table and the glossary of input varisbl r.re shown Is Fable A3. 
Changes are made by typing the 5.tem number, a spu-a, then i' 3 new value, 
including a decimal point. Q1 is assisted the valve of 1 if a table outp.it 
such as Table A2 is desired. DTO determines th.- frequency of data printout. 
TTT is the duration of each heat qvlrement, The ho at requirement is zn • 
during tho warm up time, and is increased by HBE5, each time a period lasting 
TTT seconds is finsihed. The simulation lasts TOTT seconds. Hash narks 
divide the total simulation time into tenths. 

Graphical Output 

A diagram of a typical graphical output is shown in Figure A. 2. The top 
section plots various burner temperatures. The bottom section riots burner 
efficiency and fuel flow as a function of maximum fuel flow. The left side 
of the screen displays digital values of what is presented graphically on 
ine right side. The air preheater balance (APH BAL) describes the balance of 
energy between heat transfer from the flue gas to the air preheater metal 
end heat transfer from the air preheater metal to the inlet gas. A negative 
balance indicates that more heat is being transferred to the metal than from 
the metal, sc its temperature must be rising. 

Program Listing 

The program listing of WARM. FOR now follows. Note that the listing contains 
its own nomenclature and its own method of changing input variables similar 
to CNTLA given in the body of the report. 
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Table A. 3 


VARM.FOR SAMPLE TABLE AND GLOSSARY 
OF TABLE VARIABLES 


♦^♦♦(Mi#*^*********#*##*****^**^*****^************************ ****** 

OPERATING CONDITIONS 8Y NUMBER 


* 01 

922. 200 * 02 

50. 000 * 03 

300 000 * 04 

. 508 * 05 

10. 000 * 

* 06 

20. 008 * 0? 

20 * 0810000 000 * 09 

90 000 * 10 

200 000 * 

* ii 

1 * 12 

10 000 * 13 

0. 000 * 14 

0. 000 * 15 

0. 000 * 

* 16 

0 000 * 1? 

0 000 * IS 

0. 000 * 19 

0. 003 * 20 

0 000 * 

* ENGINE DIMENSIONS 

♦ 

* 

* 

* 

* 21 

10. 006 * 22 

5. 030 * 23 

200 * 24 

100 * 25 

m * 

* 26 

16 550 * 2? 

. 640 * 28 

. 472 * 29 

25 500 * SO 

” >■ » 

* 21 

2 5u6 * 32 

203 * 33 

O * 34 

000 * 3b 

a. 000 * 

* 26 

0, 000 * 3? 

0. 000 * 30 

0. 000 * 39 

0 000 * 40 

0. 000 * 


**•**+,* v *♦.****♦♦** 4t***,***^t*#****Jt**.*;+****i|r****ii:» * r*+* #****“*+**#**.***#*#+ 


1 1 xxxxmooooc 


TYPE 4c. to end 


TVPE 44 TO EXECUTE NEW CASE 


1. 

THMG, °K 

21. 

LAPH , cm 

2. 

TPB , °K 

22. 

VAPH, cm 

3. 

Tl, °K 

23. 

NAPH 

4. 

DT, sec 

24. 

TKAPH, cm 

5. 

FFF, g/s 

25- 

TAPH , cm 

6. 

THU, sec 

26. 

RAF 

7. 

NO 

27. 

DOH, cm 

8. 

HREQ, watts 

28. 

DIH, cm 

9. 

TTT, sec 

29. 

LHH, cm 

10. 

TOTT, sec 

30. 

NTH 

11. 

Q1 

31. 

LR , cm 

12. 

DTO , sec 

32. 

FF 



33. 

NS 



34. 

MSH, wlres/i 


36 
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Figure A. 2. Sample Graphics 



1 c PROGRAM HARM FOR PRE-PROGRAM FOR CNTL FOR 

2 C WRITTEN BY MARTINI ENGINEERING UNDER CONTRACT NUMBER 

3. C DENS -22* FOR NASA-LEWIS UNDER THE DOE ADVANCED AUTOMOTIVE 

4 C PROPULSION PROGRAM 

5 C ***** NOMENCLATURE ***** 

6 C A - TEMPORARY VARIABLE 

7 . C AAPH « HEAT TRANSFER AREA OF FULL AIR PREHEATER- SO CM 

8 C ACE = RADIAL ENGINE ACCELERATION- RAD/SEC**2 

8. C ACV = ACCELERATION OF VEHICLE AT START OF TIME STEP. M.’SEC**2 

10 C ACY = PI4*DCY**2 

11 C AF ■ AIR FRICTION- NEWTONS 

12 C AFR = FRONTAL AREA OF VEHICLE- M++2 

13. C AH = HEAT TRANSFER AREA FROM FLAME- FULL ENGINE- SO CM 

14: C AHF " GAS HEATER MINIMUM FLOW AREA- CM**2 

15. C B - TEMPORARY VARIABLE 

16 C BAL = AIR PREHEATER ENERGY BALANCE- CHTA-HTF '.'HTA- JJ 
IT: C BCY = P 14* i DCY**2-DDR**2 ) 

18 C BEF = BURNER EFFICIENCY- X 

IS C CCV = ACV-BCY 

20 C CFF = CURRENT FUEL FLOW, G/S 

21 C CMAPH = HEAT CAPACITY OF FULL AIR PREHEATER- J/K 

22: C CMH = HEAT CAPACITY OF GAS HEATERS FOR ONE CYLINDER- J/K 

23. C CMX = HEAT CAPACITY OF REGENERATOR MATRIX- J/K 

24. C CP = HEAT CAPACITY AT CONSTANT PRESSURE- J/G K 

25: C CPA = HEAT CAPACITY OF AIR- J/G K 

26. C CPFG = HEAT CAPACITY OF FLUE GAS- J/G K 

27: C CS = COEFFICIENT FOR SHAPE OF VEHICLE 

23: C CV = HEAT CAPACITY AT CONSTANT VOLLIHE, J/G K 

29. C CVY = 4. *C2*DT/CMAPH 

30: C DANG * CHANGE IN ENGINE ANGLE- RAD 

31 C DCY = DIAMETER OF CYLINDER- CM 

3-2. C MR * DIAMETER OF DRIVE ROD- CM 

33. C DEQ * EQUIVALENT DIAMETER (USED IN AIR PREHEATER)- CM 

34. C DIC * DIAMETER INSIDE OF COOLER TUBES- CM 

35 C DIH * DIAMETER INSIDE OF HEATER TUBES- CM 

36 C DIST = DISTANCE TRAVELED FROM START- M 

37. C DCH * OUTSIDE DIAMETER OF HEATER TUBES- CM 

38. C DR * DIAMETER OF EACH REGENERATOR- CM 

35: C DST = DISTANCE TRAVELED DURING TIME STEP- M 

40, C DT = TIME STEP- SEC 

41 C EADEG = ENGINE ANGLE- DEGREES 

42 C ERRAD = ENGINE ANGLE- RADIANS 

43 C EIN * ENGINE INERTIA- N M**2 

44 C EX (20) = AIR PREHEATER METAL NODE TEMPERATURES. K 

45 C FCA = FRACTION OF VCDX THAT IS ADIABATIC 

46 C FF s FILLER FACTOR- FRACTION OF REGENERATOR VOLUME F.LlED 

47 C WITH SOLID- MUST BE ZERO IF IT IS NOT USED 

48 C FFF = FULL FUEL FLOW- G/S 

49 C FLAME = BURNER FLAME TEMPERATURE- K 

50 C FP<4> = FORCE ON PISTONSvRWAY FROM CRANKSHAFT IS POSITIVE * 

51 . C NEWTONS 

52 C FUEL = TOTAL FUEL CONSUMED BY ENGINE, G 

53 C FWI = FLOW, WATER INLET FOR ENTIRE ENGINE. G/SEC 
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54: C Gfl * (KK-1VKK 

55: C GAPH « HASS VELX1TV (USED IN AIR PREHEATER), G/S CM**2 

56 C GMAX * MAXIMUM MASS VELOCITY IN HEATER, G/S CM**2 

57: C HAS ■ HEAT TRANSFER COEFFICIENT, M/K 01**2 

58: C HREQ > ENGINE HEAT LOAD, UAHS 

59: C HTA « HEAT RECEIVED BV ENTERING AIR, J/G 

68: C HTG * HEAT REJECTED BV FLUE GAS, J/G 

61; C IG1 * VEHICLE CONTROL FLAG, i-REHOVE HASS 2*ADD MASS 

62 C II, 12 » GRAPHIC OUTPUT, X VALUES 

63: C J1,J2 = GRAPHIC OUTPUT, V VALUES 

64: C J7 * DETERMINES INPUT NUMBER SELECTION 

65: C KAR = COEFFICIENT OF AIR RESISTANCE 

66: C KK = CP/CV 

67: C KR = 1 / KK 

68: C KRR * COEFFICIENT OF ROLLING RESISTANCE 

69: C LAPH ■ HEAT TRANSFER LENGTH IN AIR PREHEATER, CM 

70: C LC * LENGTH OF COOLER TUBES, CM 

71: C LCR = LENGTH OF CONNECTING ROD, CM 

72: C LH = LENGTH OF HEATER TUBES, CM 

73: C LHH * HEATED LENGTH OF HEATER TUBES, CM 

74 C LHV = LOWER HEATING VALUE OF FUEL, J/G 

75: C LR = LENGTH OF REGENERATOR, CM 

76: C H(4) = INVENTORY OF GAS IN EACH ENGINE COMPARTMENT, G 

77: C ME = ENGINE MECHANICAL EFFICIENCY, PERCENT 

78: C MGI = INITIAL GAS INVENTORY, G 

79: C MIR * FACTOR RELATING MASS FLOW TO PRESSURE DROP, G/S MPA 
88: C MIR1 = ADJUSTMENT OF MIR TO PREVENT CONTROL OVERSHOOT 

81: C HIV = MASS, INERTIA OF VEHICLE, KG 

82: C MSh = MESH SIZE, HIRES/CM 

83: C MU * MOLECULAR WEIGHT OF WORKING GAS. G/G MOLE 

84. C MWFG = MOLECULAR HEIGHT OF FLUE GAS, G/G MOLE 

85: C NAPH = « OF AIR PREHEATER FLOW PASSAGES IN EACH DIRECTION 
86 C NR * NUMBER OF REGENERATORS/CYLINDER 

87: C NS * NUWER OF SCREENS PER REGENERATOR 

88: C NTC = NUMBER OF COOLER TUBES/CYLINDER 

89: C NTH = NUMBER OF HEATER TUBES PER COMPARTMENT 

96: C 0M1 = DESIRFO IDLE SPEED OF ENGINE. R/S 

91: C PI * PI ■ 3. 141592654 

92 C PI2 = FI/2 = 1 5870796327 

93: C PI32 = 3*PI/2 

94 C PI4 = PI / 4 = 7853981635 

95: C PRH = HIGH PRESSURE RESERVOIR PRESSURE, MPA 

96: C PRL = LOW PRESSURE RESERVOIR PRESSURE, MPA 

97: C Pl<4) = GAS PRESSURE AT BEGINNING OF TIME STEP, MPA 

98: C P2(4) * GAS PRESSURE AFTER VOLUME CHANGE, MPA 

99 C P3<4> = GAS PRESSURE AFTER TEMPERATURE EQUILIBRATION AT 

100: C CONSTANT VOLUME, MPA 

101 C P4(4> = COMMON GAS PRESSURE AT END OF TIME STEP, MPA 

102 C QE = HEATING OF' HEATER TUBES OF OfC CVLINDER BY BURNER 

183 C DURING A TIME STEP, J 

104. C QEX *= HEATING OF WORKING GAS IN HEATER TUbES DURING TIME STEP, J 

105 C QHK4) * CUMULATIVE HEAT INPUT FOR CYCLE, J 


139 


106: C Q1 * OUTPUT FLAG, 1«FULL OUTPUT 2-QUICK RUN 

107: C R * 8. 314 J/G HOL K 

138 C RAD * 0. 017453 RADIANS/DEGREE 

109 C RAF « RATIO OF AIR TO FUEL G/G 

110 C RAi 3 RAF+1, G/G 

ill : C RC * RADIUS OF CRANK, CM 

112: C RC2 = 2*RC 

113 C RE = REYNOLDS NUMBER 

114 C RF - ROLLING FRICTION, NEWTONS 

115 C RGE * RATIO OF GEARS, VEHICLE TRAVEL/REV, METERS 

116 C RX * CP - CV 

117 C SPM = CRUISING SPEED OF VEHICLE, M/S 

118. C SPVD = VEHICLE SPEED DESIRED BY SCHEDULE, M/’S 

119: C SPV1 = SPEED OF VEHICLE AT BEGINNING OF TIME STEP, M/SEC 

120. C SS = CHECK TO ALLOW USER CHANCE TO STOP 

121. C ST = 1 TO CONTINUE, 2 TO START OVER 

122 C STN = STANTON NUMBER TIMES PRANDL NUMBER TO TWO THIRDS POWER 
122 C T1 = AMBIENT AIR TEMPERATURE, K 

124 C TA = AVERAGE OF HEATER METAL TEMPERATURES, K 

125 C TAC = VEHICLE ACCELERATION TIME, SEC 

126 C TAPH = THICKNESS OF PREHEATER PASSAGE, CM 

127 C TCR = DURATION OF STARTING MOTOR TORQUE, SEC 

128 C TGC<2, 4) = TEMPERATURE OF GAS IN COOLER, K 

129 C TGCSC2.4) = TEMPERATURE OF GAS IN COLD SPACE ANT- DUCT, K 

130 C TCMC4) = TEMPERATURE OF COLD METAL IN COOLER, k 

131: C TF = TIME INCREMENT FLAG, 0=DOUBLE INCREMENT, 1=N0 CHANGE, 

122 C 2=HALF INCREMENT 

133 C TGHv2,4; = TEMPERATURE OF GAS IN HEATER, K 

124 C TGHS(2, 4) = TEMPERATURE OF GAS IN HOT SPACE, K 

125 C TOR < 2, 4 ‘ = TEMPERATURE OF GAS AT REGENERATOR MIDPOINT. K 

126 C THW = THICKNESS OF WIRE IN SCREENS OF REGENERATOR, CM 

127 C THMC4' 1 = TEMPERATURE OF HOT METAL IN HEATER, K 

128 C THMG = TEMPERATURE. HOT METAL GOAL. K 

129 C THU = ENGINE WARM-UP TIME. SEC 

140 C TID = IDLE TIME AFTER CRANKING, SEC 

141 C TIN-20) = INLET BURNER AIR NODE TEMPERATURES, K 

142 C Til = THU*TCR 

143 C TI2 = TU+TID 

144 c TI3 = T I 2+ TAC 

145 C TMAPH = THICKNESS OF METAL SEPARATING EACH FLOW PASSAGE, CM 

146 C TMR-: 4) = MIDPOINT TEMPERATURE OF REGANERATOR MATRIX, K 

147 C TNET = NET ENGINE TORQUE, N-H 

148 C TOTT = TOTAL SIMULATION TIME, SEC 

149 C T0U\2Q 1 = FLUE GAS NODE TEMPERATURES, K 

150 C TPB = TEMPERATURE, PROPORTIONAL BAND IN HOT METAL, ►, 

151 C T P0 = INTERVAL BETWEEN PRINT OUTS. S 

152 C TQ- 4 1 = TORQUE FPC«M EACH PISTON, CCW IS POSITIVE- N-H 

152 C TO I - TOTAL lNL‘iCATED TORQUE- N-M 

154 v TCiS = TOTAL SHHFT TORQUE- N-M 

155 C TOY - TORQUE VEHICLE PUTS ON ENGINE, N-M 

156 C TRAV = AVERAGE PEG METAL TEMP, t 

157 C TST = STARTING MOTOR TORQUE. N-M 
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ISO 

f 

TT = 

CHECK TO DETERMINE WHEN POINTS SHOULD BE PLOTTED 

15? 

C 

TWI * 

TEMPERATURE, WATER INLET, K 

ISO 

c 

TWO = 

TEMPERATURE OF COOLING WATER, K 

161 

c 

UAPH 

= HEAT TRANSFER COEFF AIR TO METAL IN AIR PREHEATER W/CM2 K 

16Z 

C 

UH » 

HEAT TRANSFER COEFF FLUE GAS TO GAS HEATER METAL, M/CM2 K 

16 

c 

uxx = 

UY/CY 

164 

c 

VAB = 

VOLUME OF AIR IN BURfCR, CU CM 

165 

c 

VCA'Z 

,4' = VOLUME, COLD, ADIABATIC, START AND END OF TIME STEP 

166 

c 

VCA1C4) = VOLUMES OF GAS ORIGINALLY IN ADIABATIC COLD SPACE 

167 

c 


AFTER VOLUME CHANGE, CU CM 

168 

c 

VC DA 

= VOLUME, ADIABATIC COLD DEAD, CU CM 

16? 

c 

VCD = 

VOLUME, ISOTHERMAL COLD DEAD, CU CM 

170 

f 

VCD >>4 

> -- VOLUMES OF GAS ORIGINALLY IN GAS COOLER AND 

171 

r 


ISOTHERMAL PART OF COLD DUCT AFTER VOLUME CHANGE 

17Z 

c 

VCDX 

= VOLUME, COLD DEAD NOT IN GAS COOLER, CU CM 

re 

c 

VHA*. Z' 

.4) = VOLUME, HOT, ADIABATIC, START AND END OF tjhe STEP 

174 

c 

VHA1 1 4 = VOLUMES OF GAS ORIGINALLY IN HOT ADIFlBATIC SPACE 

175 

c 


AFTER VOLUME CHANGE, CU CM 

1 76 

f 

VHD = 

VOLUME, HOT DEAD, v ASSUMED ISOTHERMAL) CU CM 

177 

c 

VHC'l > 4 • = VOLUMES 'OF GAS ORIGINALLY IN HOT D€AD SPACE AFTER 

178 

c 


VOLUME CHANGE. CU CM 

17? 

c 

VHDX 

= EXTRA HOT VOLUME BESIDES THAT IN THE GAS HEATER, 

180 

!_ 


CU CM. INCLUDES END CLEARANCE, GAP AROUND HOT CAP 

181 

L- 


AND MANIFOLD ASSUMED AT HOT METAL TEMPERATURE 

iSZ 

; 

VPD = 

VOLUME • REGENERATOR DEAD, PER CYLINDER, CU CM 

181 

c 

VRD1". 

4- = VOLUMES OF GAS ORIGINALLY IN REGENERATOR AFTER VOLUME 

164 

L 


CHANGE. CU CM 

185 

c 

VT ■ Z, 

4 ' = TOTAL GAS VOLUMES AT START AND' END OF TIME STEP- CU CM 

186 

c 

VTD = 

TOTAL DEAD VOLUME, CU CM 


187 C WAPH = WIDTH OF EACH AIR PREHEATER PASSAGE. CM 

1&; C WCA 1 ;• • = HASS IN ADIABATIC COLD SPACE AT START AND END-, G 

16? C WCD'Z-4- = HASS IN ISOTHERMAL COLD SPACE AT START AN END, G 

ISO C WHA'.i;. 4 ' = MASS IN ADIABATIC HOT SPACES AT START AND END. G 

i?i C NHL" ii 4 ■ - MASS IN HOT DEAD SPACE. G 

lr*i WRC - HASS OF REGENERATOR tjAS MOVING INTO COOLER.- G 

is: C WRD 1 Z, 4 ■ = HASS IN REGEN DEAD SPACE AT START AND 1 END, G 

104 C wPH = HASS OF REGENERATOR' GAS H0V1NG INTO HEATER, G 

i?5 c * TEHPORARV VARIABLE 

1.-6 C . ,H - lCRuZ 

1?7 C XB - LCP * PC 

i?s c :;c = p : mw 

iso c .;:;-4- - old. new volume ratio 

_ou ,a = ENGINE SPACING'? IN 4 CYLINDER MACHINE 

- ■ - m >» n m " ii 

iOi. C . ;I = " 

. , A z " " 

_-,.4 1 -> - ►. r ■ SC .... L W ■ • ZERO FuR i-LOW AIR FLOW THROUGH PREHEATER 

_o‘ o V - TLHF ORARV VARIABLE 
106 . VV - TEMPORARY VARIABLE 

zee : z - flag for mof> ing fluid- i fur hz, z for Ft. z for hip 

ZOB o ZZ - TEHPORARV VARIABLE 
ZOO C ♦♦♦♦♦ j TART OF PROGRAM 
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210 

211 

212 

211 

214 

215 

21b 

217 

218 
21 ? 
220 
221 


■vv* 



228 

22 ? 

220 

221 
"v . 

C->S. 


224 

2*5 

22b 

228 

22 ? 

240 

241 

242 
242 

244 

245 

246 

247 

248 
24? 

250 

251 

252 
252 

254 

255 
25b 

257 

258 
25? 
260 
261 
262 


D IMENSION THM (4 >, TCM<4 >.■ TGH<2* 4'*. TGC<2, 4), TIN<50>. 

1 E. x a50). TOU<»>, TMR^4>, 0HI<4>, T2H(4; 

INTEGER GLST 

REAL LH, LR, LC, MWFG, LAPH, LHH, LHV, HSH 
C INITIAL OPERATING CONDITIONS 

DATA THUG, TPB, DT, MWFG/922 2, 50. , 0 5, 28 62/ 

CATA LHV, FFF, VAB, RAF, TPO/46422 - 10. , 200O. . 16 55. 10 ,* 

[ATA CPA, CPFG, Tl, TTT, TOTT. 1 02- 1. 20. 20O , 96 , 208 / 

DATA THU. NO, ON, HREQ, 01/20 , 28, 0. 0, 10000. , 0/ 

C ENGINE DIMENSIONS 

DATA DC V, DDR. NS/10 16, 4 06, 0/ 

TATA VHDX, D1H, LH NTH/11. 5?. 0 472, 41. 48. 26/ 

DATA NR, DR, LR, FF/6, 2 5, 2 5, 2/ 

DATA [AH, LHH, THAPH, 640, 25 5S, 1/ 

DATA LAPH. WAF'H. TAPH, NRPH/18 , 5 , 2, 200/ 

C DATA CONSTANTS 

DATA PI4, PI, PI2, RAD. R/0 7854.2 1415?, 1 57080, 0 017452. :• 2K 
CATA J, RGE/5, 54/ 

? UlRITEv J- 10 1 

10 FORMAT < ////// 0 ,71k'* >/' * OPERATING CONDITIONS BY NUMBER 

1 . 10X, * ' , 12X, * ' , 12X, * 1 

WRITE' J, 12 >THNG- TF'B, Tl, C-T. FFF, THU, NO, HREQ, TTT. TOTT 
12 FORMAT * 01 .F? 2, * 02 -F? 2. ♦ 02 .F? 2, ♦ 04 . F? 2- 

1 * 05 .F? 2. * * 06 • F? *.. * 07 • 15- 5X- ♦ Mo . F? !■ ♦ 0? ■ 

2 F? 2. * 10 -F? 2. * ■ 

WRITE 1 . J ■ 14 >01 . TF'O' GN, GN, HN.GN.GN.GN.Gf/ GN 
14 FORMAT v ♦ 11 .15.5/. * 12 ,F? I. ♦ 11 ,F? 2. ♦ 14 . r? I 

1 *15 -F? 2. ♦’/•• * 16 , F? 2, * 17', F? *• * 18 • F? :. * 1? 

2 • F? 2, * 20 ■ F? 2, * • 

ItfiTE'.J, 20 .'LAPH, WhPH, NAPH, TMAPH. TAPH, RAF - [OH, D1H, LHH. NTH 
20 FORMAT ( ♦ ENGINE DIMENSIONS , ?X, ♦ 12X, ♦',1*X. * . 12X, * / 

1 * 21 ,F? 2. ♦ 22 .F? 2, * 22 , 15, 5X, * 24 .F? 2, * 25 .F? 2, 

2 + / * 26 ■ F? 2, * 27 , F? 2, * *8 , F? .*■ * i? . F? _■ A' 

2 15, 5X, + • 

WRITE'.J, 22 > LR, FF, NS- MSH, GN, GN, GN. GN, GN, GN 
22 FORMAT >. * 21 ,F9 2, + 22'. F? 2, ♦ 22 , 15, 5X, ♦ .4 r; 1, 

1 * 25 , F? 2, * / * 26 ,F? 2- ♦ 27 , F? 2. * 28 F?. 2. + 2? ■ 

2 F? 2. ♦ 40 .F? 2, ♦ > 

WRITE*. J, 28 > 

28 FORMAT *, • 7l<. * '/ II NXXXXXXXXX , 12: :. type 48 TO EMC* . 5X, 

1 TYPE 4? TO EXECUTE NEW CASE /> 

REACH 5, 26 >J7. QG 
26 FORMAT * 12, 2X, F10 2> 

IF^J7-9>45, 45,28 
28 IF*. J7-i9>47, 47, 2? 

2? IF' J7-29)4?,4?,40 

40 IF*. J7-2?>50, 50, 51 

45 GO TO (52, 54, 55, 56, 57, 58, 5?, 60- 61 J7 

47 J7=J7-? 

GO TO *.62, 62, 64, 65, 66. 67. 68. 6?, 70, 71 >. J7 
4? J7=J7-1? 

GO TO *, * 2, < * 4, 75, 1 6 , i>‘ * 8, * ?, 89, 81 * , J r 

58 J7-J7-29 
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GO TO <82, 83, 84, 85, 86, 87, 88, 89, 98, 91), J7 

264 

51 

J7-J7-39 

265 


GO TO <92, 93, 94, 95, 96, 97, 98, 99, 100, 101), J7 

266 

53 

THHG-QQ 

267 


G0T09 

268 

54 

TPB*QQ 

269 


G0T09 

279 

55 

Tl-fiQ 

271 


G0T09 

272 

56 

DT*QQ 

273 


G0T09 

274 

57 

FFF*QQ 

275 


G0T09 

276 

58 

THU*QQ 

277 


G0T09 

278 

59 

NO*QQ 

279 


G0T09 

288 

68 

HREQ*QQ 

281 


G0T09 

282 

61 

TTT=OQ 

283 


G0T09 

284 

62 

TOTT=QQ 

285 


GOT09 

286 

63 

01*00 

287 


GOT09 

288 

64 

TPO=QQ 

289 


G0T09 

298 

65 

GN-QQ 

291 


G0T09 

292 

66 

GN*00 

293 


GOT09 

294 

67 

GN*QQ 

295 


G0T09 

296 

68 

GN=QQ 

297 


G0T09 

298 

69 

GN=QQ 

299 


GOT 09 

388 

70 

GN*Q0 

381 


G0T09 

382 

71 

GN=QQ 

383 


G0T09 

384 

72 

GN*OQ 

385 


G0T09 

396 

73 

LRPH*00 

387 


G0T09 

388 

: 74 

HfiPH*Q0 

309 


GOT09 

310 

; 75 

NRPH-OQ 

311 


G0T09 

312 

76 

THflPH-QG 

313 


G0T09 

314 

77 

TflPH-00 

315 


G0T09 


1*3 


216 

78 

RflF*QQ 


317 


00T09 


318 

79 

DOH-GQ 


219 


G0T09 


328 

88 

DIH*QO 


321 


G0T09 


322 

81 

LHH*QQ 


323 


Q0T09 


324 

82 

NTH=QQ 


325 


G0T09 


326 

83 

LR=Q0 


327 


G0T09 


228 

84 

FF=OQ 


329 


G0T09 


338 

85 

NS=QG 


331 


G0T09 


322 

8b 

MSH=OQ 


333 


GOT 09 


324 

87 

GN«QG 


225 


G0T09 


236 

88 

GN=QQ 


337 


GOT 09 


228 

89 

GN*QQ 


229 


GOTO? 


248 

90 

GN*GG 


241 


GOT 09 


242 

91 

GN=QCi 


243 


G0T09 


244 

92 

GN=QG 


245 


GOT 09 


246 

•%' 

GN»QQ 


247 


G0T09 


248 

94 

GN=GQ 


249 


G0T09 


250 

95 

GN=PO 


251 


GOT 09 


“C’-i 
_• Jt- 

9o 

GN=QG 


252 


GOT 09 


254 

97 

GN=lXJ 


“CC 

J J J 


GOT09 


3-56 

98 

GN=uG 


-e- 

— » i 


GOT 09 


258 

99 

GN=OQ 


259 


GOT 09 


260 

100 

GOT O500O 


2b 1 

101 

CONTINUE 




IF'sOi GE 

1-WRITE. 2 

Z6Z 

195. 

FORMAT* 

TIME- SEC.- 


HT TUBE ■ K * FUEL FLOW-G/S'- HEFiT PEG- U 1 
264 1 . BURNER EFFrj ftPH MET NODE APH HT BALI. 

365 C ****♦**♦♦ BURNER INITIALIZATION ♦*♦»*♦*+* 
lot. C'O 208 1=1. NO 

267 200 EX' I ‘=Tl 

StB L HEAT ChPhC I TV i.if HIP PREHEATER HETAL ASSUMING 5TEEL HI TH 
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C 5 00 J/CU Ch K HEAT CAPACITY 

CMAPH*LAPH*WAPH*2. *NAPH*TMAPH*2. 5 
C FLOW AREA IN PREHEATER 
AFAPH=WAPH+TAPH*NAPH 
C HEAT TRANSFER CONSTANTS 
RAi-RAF+1 
CZ*CPFG*RA1 

DEG=2 *HAPH+ T APH/' •, WftPH ♦ T APH ) 

UXY=LAPH*WAPH*2. *NAPH/(N0*C2> 

DT2*LHV/CZ 

CY=CPA*RAF*NO/CMAPH 

uxx=laph+waph*2. *naphano*raf*cpa:> 
cyv=cz*no/cmaph 

FUEL=0 

C HINIMUM FLOW AREA FOP FLUE GAS THROUGH GAS HEATER 
AHF =DOH*LHH+NTH+2 

C HEAT TRANSFER AREA TO PLANE FOR COMPLETE ENGINE 
AH=AMF*2*PI 

C HEAT CAPACITY 1 OF GAS HEATER FOR ONE CYLINDER 
CHH=4 ?1+Pl4*t [•0H**2-DIH**2)*LHH*NTH 

c initialize c umulat i ve heat input 

DO 1S8 1=1.4 
THM- I '=Ti 
101 UH I I '=0 
C€.;=y 
TT=0 
TIH=A 
call Clear 
I 1*512 

1 2-* i.02: 

Jl a I'A' 

;2=:o0 

Chlw "ECTOR- II. 11, 12- .*2 ■ 

Tl=0 

J2-0 

CALL '••'ECTOR' 1 ii. Jl. 12. JZ ■ 

'. 1 = 102 : 

Ji=rr? 

CALi. VECTOR- 12. JZ- Ii- Jl • 

12=512 

CALL --'EC "OR’ Ii-. Jl- 12- J2 1 

11=512 

31=0 

CALl VECTOR- 12. J2- U- Jl 

ji=:so 
’ c 

t'O C'-v 1=1.11 
i i=4S* i -1 '* 54 : 

Is-* I i 

call v'ecto^' ii- a- n * a • 

N02=N0 2 
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421 



TIN'i-Ti 

422 

C ********* GjHS heater hash up ********* 

al : 

400 


T1M*7IM*DT 

424 



TA=< THMvi >*THM- 2>*THM« 2 '*THM- 4 * V4 

4 25 

c 

TEMPERATURE ERROR ' FOR CONTROL • 

4*6 



TE=THtKi-TA 

42? 

c 

CURRENT FUEL FLOW 

428 



IF* TE'405. 405- 406 

42? 

405 


lFF*0 01*FFF 

420 



GOT 0409 

411 

406 


IF* TE-TRB '40y 407.467 

422 

40? 


CFF*FFF 

4*2 



GOTO409 

424 

408 


CFF*FFF*<TE)/TPB 

425 

409 


CONTINUE 

426 



FUEL*FUEL*CFF*OT 

41? 

C HEAT 

TRANSFER CALCULATIONS 

428 

C 

AIR 

TEMPERATURES 

42? 

C 

HEAT TRANSFER COEFFICIENT 

440 



GAPH*CFF *RAF/AF APH 

441 



RE«DEQ*GAPH*2500 

442 



CALL STANTN- PE, STN ■ 

442 



X»UXX*STN*GAPH*1. 19/CFF 

444 



IF<22 -X)420, 420, 425 

445 

420 


DO 422 1=1. NO 

446 

422 


TIN<I*1>*EX<I> 

447 



GO TO 428 

448 

425 


X*EXP<X> 

44? 



DO 42? 1*1, NO 

450 

42? 


TIN< I*1;=E?X I >- ;EX< I -TIN- 1 /XX 

451. 

428 


CONTINUE 

452 

C ADJUST HEAT EXCHANGER f€TAL TEMPERATURES 

452. 



X=CY*CFF*DT 

454 



DO 420 1=1, NO 

455 

420 


EX(I )»EX(I >-X*<TIN< 1*1 '-TIN* I - • 

456 



flame=tin'.nci*1'*dt: 

457 

C 1 

HEAT FLUX TO ALL HEATERS 

458 

C 1 

5UTSIDE CONTROLLING HEAT TRANSFER COEFFICIENT 

459 



UH=vDOH*CFF*RAl,'AHF/ 0006 ' **0 5* '9002.-XOH 

460 

432 


X=UH*AH/<CZ*22 > 

461 



DO 428 1*1,4 

462 



IF(CFF-X)425, 425, 427 

462 

425 


T2A<I>*THN<I> 

464 



G0T0428 

465 

437 


73A< I >»THH(I >♦ '.FLAME- THM( I - >/EXP< X*22 . CFF * 

466 

438 


CONTINUE 

467 



T0U(N0*i>*(.T2A<l)+T2A<2)*T2A<i>*12A(4>)/4 

468 

C 1 

EXIT 

FLUE GAS TEMPERATURES THROUGH AIR PREHEATER 

469 

c 

HEAT TRANSFER COEFFICIENT, FLUE GAS SIDE 

470 



GAPH<PF*<RA1>/AFAPH 

471 



RE=DEQ*GAPH*2500 

472 



CALL STANTN(RE, STN) 

473 



X-STN*GAPH*1 19*UXY/CFF 

474 



IF(X-32 >444,440,440 
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475 

440 

00 442 1*1, NO 

47?* 

442 

TOLK I'*EXvl' 

477 


G0T044S 

478 

444 

A “EXP'' A > 

47? 


00448 1*1, NO 

480 


J*NO-I*i 

481 

448 

TOLK J>*EX‘ J >-(EX( J*1 »>/X 

48*. 

C PEAOJUST AIR PREHEATER METAL TEMPERATURE 

4tC 

448 

X*CWKFF*OI 

484 


00 450 1*1, NO 

485 

450 

EXd ,*E!v I -+X*' TQU 1 1 ♦! >-TOU< 1 >> 

488 

t TEMPERATURE EQUILIBRATION FOR TIME STEP WITH MO VOLUME CHANGE 

487 

C - 

-TO SHORTEN CALCULATION IT IS ASSUMEO THAT HEAT TRANSFER IN 

488 

C 

HOT AND COLO SPACES S NON-EXISTANT AW» THE HEAT TRANSFER 

488 

c 

IN THE OTHER SPACES IS PERFECT 

4 Hi 

C IN GAS HEATERS 

481 

c 

BURNER HEATING 

4?; 


00 488 1*1,4 

4?: 


QE*&T*CZ*CFF*<FLAME-T3A< I > >/4. 

484 


IF'jri IT 2>G0T0488 

485 

C 

CUMMULATIVE hCAT INPUT FOP CYCLE 

488 


QHlvI >*0HI ’I i+QEX 

487 

C 

CHANGE IN TEMPERATURE OF HEATER METAL 

488 

488 

THM< 1 -*THM* ' IH.Q£-0€X)/CMH 

488 


bef*qe;vT-t/(Cff*lhv >*400 

500 


!i*m’TOTT*450*54: 

501 


Jl« 20*<TA-300 >+410 

se; 


CALL POINT', 11. Jl- 

5o: 


Jl* 28* < EX t, NO >-200 >+410 

504 


CALL POINT (. 11, Jl> 

505 


Jl* 20* ‘EX'. 11-100 ‘+410 

508 


CALL POINT ,11, Jl) 

507 


Ji*CFF, FF!- *250+20 

508 


CALL POINT- 11, Jl> 

508 


J1*BEF*: 5*29 

510 


CALL POINT' 11, Jl.. 

511 


IF-TIH-TT>520,505,505 

5i: 

505 

TT=TT*TPO 

51: 


HTA*CPA*RAF *•; T IN( N0*1 .-T IN< 1 > > 

514 


HTF<PFG*RAl*aOU‘ NO*l>-TOUi 1) > 

515 


IFvHTA LT 88 iGOTO510 

518 


BAL*CHTA-HTF>,‘HTA*100 

517 


GOT0512 

518 

510 

Ba*100 

518 

512 

HRITE<5, 517)TIN(1>, TIN<M0*1>, EXU)- EX^N02>, EX<NO>, FLAME, 

526 


1 T0U<1;,T0U<N0*1) 

521 

517 

F0RMAT<//' ',F6 0, IX, 20( '* >, F7 0/8X, *M3X, '*'M, 

522 


1 F4, e, t f? 0, '* ,F12 0/8X, M8X, *V' ', F6 0, IX, 20< '* ' >. 

52: 


*mE<5,5l8>B£F,8AL,CFF 

524 

518 

FORMATS*' BURN EFFXF5 1, ' APH BAL ',F6 1, ' CFF',F7 3) 

5*25 


X*OEX/DT 

528 


IF- Q1 GE 1 'WRITE (,2, 518>TIH, TA, CFF, X> BEF, EX(NO>, BAL 
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527: 515* FORMAT < ' F8. 2 , F17. 4, Fi4 . *», 4F14. 4) 

528 . 520 IF >J1I1-THU.)480» 400* 540 

529: 540 QEX=QEX+HREQ*DT/4. 

538: IF(TMGT. TOTT>GOTO600 

531: TrtJ-THU+TTT 

532. GOTO400 

533: 030 READ(5,610)X 

534: 619 FORHAT(F10. 2> 

535: G0TG9 

536 500O STOP 

537: END 

538. 

539. SUBROUTINE STWTN<RE; STN> 

540 IF (RE-2000 >108, m 2O0 

541. 100 STN=EXP(1. 6908-. 9363*ftLGG<RE» 

542: GOTO300 

543 : 200 STN=EXP< -4 0555-. 1803*AL0Q( RE> > 

544 3i RETURN 

545. END 
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APPENDIX B 


SHAFT TORQUE CORRELATION 


The shaft torque is lower than the indicated torque due to two friction 
losses; mechanical friction and flow losses inside the engine. Flow 
losses can be calculated using fluid mechanics principles, but for the 
sake of simplicity, it was desired to derive a correlation that would 
approximate engine flow loss at various speeds and working gas pressures. 

ISO. FOR is a computer code developed by Martini Engineering (6) that cal- 
culates How losses in the heater, regenerator and cooler of the 4L23 eng- 
ine using fluid mechanics principles. The program was executed 16 times, 
with four pressures ranging from 1. 36-9-66 MPa and four speeds ranging from 
3*33 to 33-3 Hz. The ratios of net torque (indicated less the flow losses) 
to indicated torque were plotted for the 16 cases and axe shown in Figure 
B.l. The full input and output of these cases are given in Table B.l. 

It was noted that the flow losses Increased with speed and decreased with 
pressure . The effect of pressure on the flow loss increases with speed. 

It was uecided tu use these two relationships to determine the flow loss 
correlation . 



Figia'e E.l. Torque Ratio for Various Pressures and Speeds. 
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Table B.l 


FULL INPUTS AND OUTPUTS FOR 16 CASES 
USED TO DERIVE TORQUE CORRELATION 


Nomenclature 


Symbol 

Meaning and units 



SP 

Engine Speed, rpm 



PS 

Average Pressure, psia 



ND 

Number of degrees in angle increment 



TF 

Inside Heater Tube Wall Temperature, 

F 


LI 

Fraction of Total Gas Charge Leakage 

per 

MPaAP pear 

TY 

Inlet Cooling Water Temperature, F 



FX 

Cooling Water Flow gpm ® 2000 rpm per cylinder 

OG 

Operating Gas, 1 = hydrogen, 2 = helium, 

3 ~ air 

DC 

Diameter of engine cylinder, cm 



DR 

Diameter of logenerator, cm 



IC 

ID of cooler tubes, cm 



OC 

OD of cooler tubes, cm 



DW 

Diameter of "wire" in regenerators 



DD 

Diameter of piston Drive Rod, cm 



IH 

ID of Heater Tubes, cm 



OH 

Heater Tube OD, cm 



G 

Gap in hot cap, cm «* 0.56 cm 



LB 

Length of Hot Cap, cm 



LR 

Length of Regenerator, cm 



Cfi 

Length o/ Connecting Rod, cm 



RC 

Crank Radius, cm 



LC 

Length of cooler Tube, cm 



LD 

Heat Transfer Length of Cooler Tube, 

cm 


LH 

Heater Tube Length, cm 



LI 

Heatetr Tube Heat Transfer Length, cm 



NC 

Number of Cooler Tubes per Cylinder 



NR 

Number of Regenerators per cylinder 



N 

Number of Cylinders per Engine 



NH 

Number of Heater Tubes per Cylinder 
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Table B.l (continued) 


Symbol 

FF 

Ali 

CX 


MR 

FE 

EC 

SC 

SE 

SR 


ZH 

KM 

IB 

LE 

NE 


BF 


Meaning and uni ts 

Filler factor, fraction of regenerator voltxne filled with solid 
Phase Angle Alpha - 90 degrees 

Gold dead volume outside cooler Tubes, cm^ (determined by other 
input only) 

Mechanical Efficiency, % 

Furnace Efficiency, % 

Piston End Clearance, cm 

Wall Thickness of Hot Cap, cm 

Wall Thickness of Expansion Cylinder Weill, cm 

Wall Thickness of Regenerator Housing, cm 

0 for Specified Static Conduction, 1 for Calculated Static 
Conduction 

Specified Static Heat Conduction Loss, watts 
Metal Thermal Conductivity, w/cm K 
Inside Diameter ot Connecting Duct, cm 
Length of Connecting Duct, cm 
Number of Connecting Ducts per Cylinder 

Bugger Factor to Convert Power Outputs to Nearly What GM Says 
They Should Be 
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Table B.l (continued) 


Input and Output Printouts 


ISOTHERMAL SECOND ORDER CALCULATION— 
PROG. ISO 
09 APR 1980 


WRITTEN BV WILLIAM R. 

MARTINI 




CURRENT OPERATING CONDITIONS ARE 




SP* 200.00 

PS= 

200. 00 

ND* 30 00 

TF= 

1290 08 

LI* 0. 0000 

TV* 

135.0000 

FX* 25. 0000 

OG* 

1 

CURRENT DIMENSIONS ARE; 




DC= 18. 1600 

DR* 

3.5000 

IC* 1159 

OC= 

1670 

DW= . 00432 

DD= 

4.0608 

IH* . 4720 

OH* 

6400 

G* . 04060 

LB* 

6. 4000 

LR* 2. 5880 

CR* 

13. 6500 

RC= 2. 3258 

LC* 

12. 9008 

LD= 12. 0200 

LH* 

41 8060 

LI* 25. 5800 

NC* 

312 

NR* 6 

N= 

4 

NH= 36 

FF= 

2000 

AL* 90 00 

CX* 

254 2804 

ME* 90. 0800 

FE= 

88 0000 

EC= 84060 

SC* 

06358 

5E* 10160 

SR* 

05106 

2Z= i 

2H= 

216 37 

KM= 20O0 

ID* 

. 7600 

LE= 71. 0000 

NE= 

6 

BF= 4000 

BB= 





POWER, WATTS 



HEAT REQUIREMENT, WATTS 

BASIC 


1*169. 2197 

BASIC 


2438 5757 

HEATER F. L 


. 9384 

REHER T 


47 4414 

REGEN. F L. 


?. 4383 

SHUTTLE 


2056 8794 

COOLER F. L 


8388 

PUMPING 


1 2134 

NET 


1460 0123 

TEMP SWING 


41. 6411 

MECH. FRIC, 


146 0813 

CONDUCTION 


216 3688 

BRAKE 


1314. 0111 

FLOW FRIC CREDIT 

-4 6535 

— 



— HEAT TO ENGINE 

4?97 4658 

INDICATED EFF J 

i* 3! 

0. 4330 

FURNACE LOSS 

1199 3665 

OVERALL EFF. K« 

21. 911? 

FUEL INPUT 


5996. 8320 

HOT METAL TEMP 

K= 

922. 2222 

COOLING WATER 

INLET 

TEMP , K= 338 

'EFFEC HOT SP TEMP K= 

8?6 342? 

EFFEC COLD SP 

TEMP 

K = 348 5838 
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Table B.l (continued) 


Input and Output Printouts 


ISOTHERMAL SECOND ORDER CALCULATION— 
PROG ISO 
09 APR 1980 

WRITTEN BY WILLIAM R. MARTINI 
CURRENT OPERATING CONDITIONS ARE: 


SP* 

200. 00 

PS* 

RQQ CkCk 
■jVX? TO 

NO* 

30 60 

TF* 1200. 00 

LI- 

Ck oaaa 
V ww 

TV* 

135. 0000 

FX* 

25. 0060 

0G= 1 


CURRENT DIMENSIONS ARE: 





DC* 

10 1600 

DR* 

3 5000 

IC= 

. 1150 

OC* 

1670 

DW* 

00432 

DD= 

4 0600 

IH* 

4720 

OH* 

6400 

G* 

O4060 

L6= 

6 4800 

LR* 

2 5000 

CR= 

13 6508 

RC* 

2. 3250 

LC= 

12. 9800 

LD* 

12 0200 

LH= 

41 8008 

LI* 

25 58O0 

NC= 

312 

NR* 

6 

N= 

4 

NH= 

36 

FF= 

2000 

AL= 

90 00 

CX= 

254 2804 

ME* 

98 0000 

FE= 

80 0000 

EC* 

04060 

SC* 

06350 

5E= 

. 10160 

SR= 

05100 

2Z= 

1 

u 

X 

205 01 

KM* 

2000 

ID* 

7606 

LE* 

71 0000 

NE* 

6 

BF= 

4000 

BB= 







POWER, WATTS 


HEAT REQUIREMENT, WATTS 


BASIC 

3550. 6177 

BASIC 

6026 9458 

HEATER F L 

1 3490 

REHEAT 

120. 7603 

REGEN F L 

8 3425 

SHUTTLE 

1948 9211 

COOLER F L 

1 3411 

PUMPING 

5 1784 

NET 

3519 5852 

TEMP SWING 

252. 7231 

MECH FRIC 

351. 9586 

CONDUCTION 

285 8124 

BRAKE 

3167 6267 

FLOW FRIC CREDIT 

-5. 5202 



licdt rn cuitituc 




nfcnl IU trfulNt 

Ulli 

INDICATED EFF K= 

41 1454 

FllRNACE LOSS 

2138 5029 

OVERALL EFF ';= 

29 6247 

FUEL INPUT 

10692 5137 


HOT METAL TEMP k= 922 2222 COOLING WATER INLET TEMP , K* 350.5555 

EFFEC HOT SP TEMP K* 855 7064 EFFEC COLD SP TEMP K 2 355. 9698 


IS* 


Table B.l (continued) 


Input and Output Printouts 


ISOTHERMAL SECOND ORDER CALCULATION- 
PROG. ISO 
09 APR 1988 

WRITTEN BV WILLIAM R. MARTINI 
CURRENT OPERATING CONDITIONS ARE: 


SP» 

280 88 

PS= 1000. 00 

ND= 

30.00 

TF= 1208 80 

Ll= 

0. 0000 

TV® 135.0000 

FX= 


OG® 1 


CURRENT DIMENSIONS ARE: 





DC® 10. 1600 

DR® 

'X cona 

IC* 1158 

OC= 

. 1678 


DW= 08432 

DD= 

4. 0600 

IH= . 4729 

OH* 

6400 


G- . 04060 

LB* 

6 4080 

LR= 2. 5000 

CR= 

13. 6560 


RC= 2 3250 

LC= 

12. 9080 

LD= 12. 0208 

LH= 

41. 8080 


LI® 25. 5808 

NC* 

312 

NR* 6 

N= 

4 


NH* 36 

FF® 

. 2800 

AL= 98.00 

CX= 

254. 2884 


ME® 90. 8006 

FE* 

88. 0080 

EC® 84860 

SC* 

06350 


SE® . 10168 

SR* 

05100 

ZZ* 1 

ZH= 

185. 61 


KM= 2088 

ID® 

. 7600 

LE* 71. 0800 

NE= 

6 


BF= 4000 

B8= 






POWER, WATTS 



HEAT REQUIREMENT, WATTS 


BASIC 


6518. 2021 

BASIC 


11768 

6221 

HEATER F. L. 


2 3809 

' REHEAT 


235. 

2546 

REGEN. F L. 


9. 8929 

• SHUTTLE 


1764 

4348 

COOLER F. L. 


2. 4394 

f PUMPING 


15. 

1419 

NET 


6583. 4893 

TEMP. SWING 


950 

1328 

MECH. FRIC. 


650. 3491 

CONDUCTION 


185. 

6857 

BRAKE 


5853. I486 

; FLOW FRIC. CREDIT 

-7 

3273 




UCflT T A ru^Ti 

KIT 

A AQ4 A 

8633 




nc.ni mj 

1TOX. 

INDICATED EFF. 'k 

* 43 6128 

FURNACE LOSS 


3727 

9658 

OVERALL EFF. 7.® 

31 4013 

FUEL INPUT 


18639 

8281 

HOT METAL TEMP. 

K* 

922. 2222 

COOLING HATER 

INLET TEMP , K= 

338. 

EFFEC. HOT SP. TEMP. K= 

« 8182180 

EFFEC. COLD SP TEMP. K. * 364 9307 
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Table B . 1 ( continued) 


Input and Output Printouts 


ISOTHERMAL SECOND ORDER CALCULATION— 
PROG. ISO 
0? APR 1980 

WRITTEN BV WILLIAM R. MARTINI 


CURRENT OPERATING CONDITIONS ARE: 


SP* 

208 06 

PS* 

1400.00 

ND« 

30. 00 

TF= 1200 08 

Li* 

0 0000 

TV* 

135. 0000 

FX* 

OK fliVWl 
vVW 

OG* 1 


CURRENT DIMENSIONS ARE 





DC* 

10 1600 

DR* 

3 5080 

IC= 

1150 

0C= 

1670 

DU* 

00432 

DO* 

4 8600 

IH= 

4720 

OH* 

6400 

G= 

04060 

LB* 

6 4080 

LR* 

2.5800 

CR* 

13. 6500 

RC* 

2 . 3250 

LC= 

12. 9000 

LD* 

12 0208 

LH* 

41. 8800 

LI* 

25 5800 

NC* 

312 

NR* 

6 

N* 

4 

NH* 

36 

FF* 

2800 

AL* 

Qft 

CX* 

254. 2804 

ME* 

90 0600 

FE* 

80. 0000 

EC* 

04068 

SC* 

. 06350 

SE* 

10160 

SR* 

05100 

22* 

1 

ZH* 

176.30 

KM*- 

2000 

ID* 

7600 

LE* 

71 0000 

NE* 

6 

BF* 

4000 

BB- 







POWER/ WATTS 


HEAT REQUIREMENT, WATTS 


BASIC 

8798 2656 

BASIC 

16311. 

HEATER F L 

3. 3721 

REHEAT 

324. 

REGEN F L 

11 2976 

SHUTTLE 

1676. 

COOLER F L 

3. 3873 

PUMPING 

25. 

NET 

8772. 2988 

TEMP. SWING 

1808. 

MECH. FRIC. 

877 2300 

CONDUCTION 

176. 

BRAKE 

7895. 8693 

FLOW FRIC. CREDIT 

-8 



uroT Tn run tut 

20313. 



null 1 U tnulNc 

INDICATED EFF X* 

43 1851 

FURNACE LOSS 

5678 

OVERALL EFF. X* 

31. 0933 

FUEL INPUT 

25391. 


7012 

3701 

0105 

4798 

3681 

3041 

9759 

2488 

3115 

5586 


HOT METAL TEMP K* 922 2222 COOLING MATER INLET TEMP. , K* 330. 5555 

EFFEC HOT SP TEMP. K* 798. 3881 EFFEC. COLD SP TEMP. K. * 368. 2829 
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Table B.l (continued) 


Input and Output Printouts 


ISOTHERMAL SECOND ORDER CALCULATION— 
PROG ISO 
09 APR 1980 

WRITTEN BV WILLIAM R. MARTINI 


CURRENT OPERATING CONDITIONS ARE: 


SP* 508. 00 

PS« 

200. 00 

ND- 30.08 

TF* 1200 06 

LI* 8. 8000 

TV* 

115.0000 

FX* 25. 0080 

OG* 1 

CURRENT DIMENSIONS ARE: 



DC* 10. 1600 

DR= 

1 5000 

IC* . 1150 

OC* . 1670 

DW* . 00412 

DD* 

4 0680 

IH- 4720 

OH* 6400 

G= 04068 

LB* 

6. 4008 

LR* 2. 5800 

CR= 13 6580 

RC= 2 1250 

LC= 

12 9000 

LD= 12. 0200 

LH= 41. 8000 

LI* 25 5808 

NC* 

312 

NR* 6 

N= 4 

NH= 36 

FF* 

2000 

AL= 90 08 

CX* 254. 2804 

ME* 90. 0000 

FE= 

OCk onnfl 
DC* OwO 

EC* 04060 

SC* 06350 

SE* 10160 

SR* 

05100 

ZZ= 1 

ZH= 205. 71 

KM* . 2000 

ID* 

7600 

LE* 71. 0800 

NE* 6 

BF* 4000 

BB= 




POWER, WATTS 



HEAT REQUIREMENT, WATTS 

BASIC 


3541. 0508 

i BASIC 

6032. 8877 

HEATER f L 


8. 4157 

REHEAT 

121. 0556 

REGEN F L 


52 0297 SHUTTLE 

1955 5525 

COOLER F. L 


8. 3694 

i PUMPING 

5 1772 

NET 


3472 2361 

TEMP SWING 

101 3289 

MECH FRIC 


347. 2237 

’ CONDUCTION 

205 7099 

BRAKE 


31250125 FLOW FRIC CREDIT -344306 


— 


— HEAT TO ENGINE 8387 2803 

INDICATED EFF Jf* 41 3988 

FURNACE LOSS 

2996. 8198 

OVERALL EFF X* 

29 8072 

FUEL INPUT 

10484 8996 

HOT METAL TEMP 

K= 

744.. 44.44 

COOLING HATER 

INLET TEMP , K* 330 

EFF EC HOT SP TEMP K= 

= 854 9666 

EFFEC COLD SP 

TEMP K * 353 4785 


Table B .1 (oontinued) 


Input end Output Printout a 


ISOTHERMAL SECOND ORDER CALCULATION- 
PROG. ISO 
99 APR i960 

WRITTEN BY WILLIAM R. MARTINI 
CURRENT OPERATING CONDITIONS ARE; 


SP- 

599 99 

PS- 

590 99 

ND- 

30 99 

TF- 1290 99 

LI- 

9.9999 

TV- 

135.9999 

FX- 

25. 9999 

00- 1 


CURRENT DIMENSIONS ARE; 





DC- 

19.1699 

OR- 

3.5099 

IC- 

. 1150 

OC* 

.1679 

rw- 

90432 

DD- 

4.0609 

IH- 

.4729 

OH- 

.6489 

G- 

.94069 

LB- 

6.4990 

LR* 

2.5900 

CR- 

13.6599 

RC- 

2.3259 

LC- 

12.9080 

LD- 

12.9200 

LH» 

419909 

LI- 

25 5999 

NC- 

312 

NR* 

6 

N» 

4 

NH- 

36 

FF- 


AL- 

90.90 

CX- 

<Ji U 4SAJ 

cM. (W 

ME- 

90 9009 

FE- 

oa 

w. vwv 

EC- 

v wow 

sc- 

. 96350 

SE- 

.19169 

SR- 

.95190 

22- 

1 

2H- 

169.37 

KM- 

VVV1 

. twW 

ID- 

.7690 

LE- 

71 9090 

NE- 

6 

BF- 

4099 

60- 







POWER* WATTS 


HEAT REQUIREMENT* WATTS 


SASIC 

7999. 3201 

BASIC 

14649.6925 

HEATER F L. 

18 7768 

REHEAT 

292.9714 

REC£N F. L 

66.9306 

SHUTTLE 

1714.6499 

COOLER F. L. 

18. 9975 

PUMPING 

21 4229 

NET 

7894.6269 

TEMP. SWING 

594.8383 

NECK FRIC. 

789.4628 

CONDUCTION 

189.3678 

BRAKE 

7195. 1636 

FLOW FRIC. CREDIT 

-52, 2418 
17381. 78.12 


^ - 

nfcnl IU tNUINc. 

INDICATED EFF. K- 

45.4192 

FURNACE LOSS 

4345. 4243 

OVERALL EFF ’/.• 

32. 7918 

FUEL INPUT 

21727 1250 


HOT METAL TEMP K- 922. 2222 COOLING HATER INLET TEMP. , K- 339. 5555 

EFFEC. HOT SP. TEMP K- 806. 984? EFFEC. COLD SP. TEMP. K. « 365. 5999 


Table B.l (continued) 


Input and Output Printouts 


ISOTHERMAL SECOND ORDER CALCULATION- 
PROG ISO 
09 APR 1988 

WRITTEN BY WILLIAM R. MARTINI 


CURRENT OPERATING CONDITIONS ARE; 


SP* 

CM AA 

PS* 

1000 00 

ND* 

30 08 

TF* 1200. 00 

Ll= 

cn aaap 

o. vwv 

TY* 

135 0000 

FX* 

25. 0000 

OG* 1 


CURRENT DIMENSIONS ARE; 





DC* 

10 1600 

DR* 

3 5000 

IC* 

. 1150 

OC* 

1670 

DW* 

00432 

DO* 

4.0680 

IH* 

4720 

OH* 

6480 

G* 

04060 

LB* 

6.4000 

LR* 

2. 5000 

CR* 

13. 6500 

RC= 

2. 3250 

LC= 

12 9000 

LD= 

12. 0200 

LH= 

41 8080 

LI* 

25. 5880 

NC= 

312 

NR* 

6 

N= 

4 

NH* 

36 

FF* 

2008 

RL= 

90.00 

CX= 

254. 2804 

ME* 

98 0008 

FE* 

38 0800 

EC* 

04060 

SC* 

06358 

SE* 

10160 

SR* 

05100 

22* 

1 

2H* 

195. 95 

KM* 

2000 

ID* 

7600 

LE= 

71. 0000 

NE* 

6 

8F* 

.4000 

BB* 







POWER, WATTS HEAT REQUIREMENT, WATTS 


BASIC 

HEATER F L 
REGEN. F. L. 
COOLER F L 
NET 

HECH. FRIC 
BRAKE 

17191. 9375 
34. 2715 
85. 3313 
34 9928 
17037 3437 
1703 7346 
15333 6094 

BASIC 

REHEAT 

SHUTTLE 

PUMPING 

TEMP SWING 

CONDUCTION 

FLOW FRIC CREDIT 

29918 

641 

1862 

66 

2475 

195 

-76. 

INDICATED EFF * 

i* 48. 5717 

ntHI 1 U urfUlNC 

FURNACE LOSS 

8769 

OVERALL EFF. Si* 

34 9717 

FUEL INPUT 

43845. 


3647 

8933 

7869 

6066 

5483 

95i6 

9372 

6523 

1621 

8125 


HOT METAL TEMP K* 322. 2222 COOLING WATER INLET TEMP , K« 338 5555 

EFFEC. HOT SP TEMP K* 832 8246 EFFEC. COLD SP TEMP K * 353. 8192 


1S8 


Table B.i (continued) 


Input and Output Printouts 


ISOTHERMAL SECOND ORDER CALCULATION- 
PROG. ISO 
09 APR 1988 

WRITTEN BY WILLIAM R MARTINI 


CURRENT OPERATING CONDITIONS ARE: 


SP* 

588 00 

PS* 

1400 00 

ND* 

30 00 

TF* 

1200 00 

LI* 

0 0000 

TV* 

135.8000 

FX* 

25 8000 

OG- 

1 

CURRENT DIMENSIONS ARE: 





DC* 

19 1600 

DR* 

3. 5808 

1C* 

. 1150 

X* 

1670 

DW* 

00432 

DD- 

4 0688 

IH« 

. 4720 

OH* 

640C 

G s 

84060 

LS* 

6 4000 

LR- 

2. 5080 

CR« 

13 6508 

RC« 

2. 2250 

LC* 

12. 9000 

LD* 

12. 8200 

LH* 

41 8000 

LI* 

25.5880 

NC* 

312 

NR* 

6 

N* 

4 

NH* 

36 

FF* 

2880 

AL* 

98. 80 

CX» 

254 2804 

ME* 


FE* 

80. 0008 

EC* 

04860 

SC* 

06350 

SE« 

18160 

SR* 

85180 

22* 

1 

2H* 

201. 88 

KM* 

2000 

ID* 

7680 

LE* 

71. 8008 

NE* 

6 

BF* 

4000 

B8* 






POME 

T, WATTS 



HEAT REQUIREMENT, 1 

JATTS 


BASIC 

HEATER F L. 
REGEN F L 
COOLER F. L 
NET 

HECK FRIC 
BRAKE 


24448 136? 

45. 4326 
98. 8558 

46. 5C41 
24257 3457 

2425. 7351 
21831 6113 


INDICATED EFF ?.• 
OVERALL EFF X* 


48 4612 
34 8928 


BASIC 

REHEAT 

SHUTTLE 

PIMPING 

TEMP. SWING 

CONDUCTION 

FLOW FRIC CREDIT 

HEAT TO ENGINE 

FURNACE LOSS 

FUEL INPUT 


42064 4766 
933. 3535 
1911. 5562 
114. 9268 
4924 7031 
201. 8818 
-94. 8611 
50055.2385 
12513 8066 
62569. 8312 


HOT METAL TEMP. K* 9£2. 2222 
EFFEC. HOT SP TEMP K« 844 6619 


COOLING WATER INLET TEMP. , K* 338 5555 
EFFEC. COLD SP. TEMP It * 353. 6819 





Table B.l (continued) 


Input and Output Printouts 


ISOTHERMAL SECOND ORDER CALCULATION- 
PROG. ISO 
09 APR 1988 

WRITTEN BY WILLIAM R. MARTINI 


CURRENT OPERATING CONDITIONS APE: 


SP« 

iwC CO 

rs-* 

200 00 

ND- 

10 00 

TF- 

1208 00 

LI* 

0 0000 

TV- 

115 0000 

FX* 

25 0000 

OG* 1 

CURRENT DIMENSIONS ARE : 





DC* 

10. 1608 

DR* 

1.5000 

IC* 

1150 

OC- 

1678 

DM* 

00412 

DD* 

4 0600 

IH* 

.4720 

OH* 

.6480 

G* 

04068 

LB* 

6 . 40*» 

LR* 

2 5080 

CR« 

11 6508 

RC* 

2. 1250 

LC* 

12. 9L; v 

LD* 

12 8200 

LA- 

41 8000 

LI* 

25 5800 

NC* 

112 

NR* 

6 

N's 

4 

NH* 

16 

FF* 

.2000 

AL- 

98.00 

CX* 

254 2804 

ME* 

AA Qflflfl 

yv. vow 

FE* 

88 0000 

EC* 

. 04668 

SC* 

06158 

SE* 

10160 

SR* 

05100 

ZZ* 

1 

ZH* 

188. 67 

KM* 

2000 

ID* 

7680 

LE* 

71. 8000 

NE- 

6 

BF= 

4000 

BB* 






POWER.- WATTS 



HEAT REQUIREMENT, WATTS 


BASIC 

6609 6887 

BASIC 

1181? 

2197 

HEATER F L 

59 0550 

REHEAT 

23? 

8720 

REGEN. F L 

245 4482 

SHUTTLE 

1793. 

6062 

COOLER F L. 

60 7211 

PUMPING 

15. 

2238 

NET 

6244 4546 

TEMP SWING 

192. 

066? 

MECH FRIC. 

624 4456 

CONDUCTION 

188 

6741 

BRAKE 

5620 0091 

FLOW FRIC CREDIT 

-181 

7791 



- HEAT TO ENGINE 

14062 

8877 

INDICATED EFF » 

* 44 4018 

FURNACE LOSS 

1515. 

721? 

OVERALL EFF » 

11. 9707 

FUEL INPUT 

17578. 

6894 

HOT METAL TEMP 

K- 9222222 

COOLING HATER INLET TEMP , K- 

310 

EFFEC. HOT SP TEMP K* 821 8067 

EFFEC. COLD SP TEMP K = 

162 7874 
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Table B.l (continued) 


Input and Output Printouts 


ISOTHERMAL SECOND ORDER CALCULATION- 
PROG ISO 
09 APR 1980 

WRITTEN PV WILLIAM R MARTINI 
CURRENT OPERATING CONDITIONS ARE 


SP* 

1000 93 

PS* 

CA£) ftQ 

jW. W 

ND* 

30 00 

TF* 1200. 80 

LI* 

0 0000 

TV* 

135 0060 

FX* 

25.0080 

OG- 1 


CURRENT DIMENSIONS ARE 





DC* 

10 1600 

DR* 

3 5000 

IC* 

1150 

0C« 

1670 

DW- 

00432 

DD* 

4 0600 

IH* 

4720 

OH* 

6400 

G« 

04860 

LB* 

6 4800 

LR- 

2 5000 

CR* 

13 6500 

RC« 

2 3250 

LC« 

12 9008 

LD- 

12 020ft 

LH* 

41 8000 

LI* 

25 5800 

NC= 

312 

NR* 

6 

N* 

4 

MM* 

36 

FF* 

2000 

AL= 

90 06 

CX« 

254 2804 

ME* 

90 0000 

FE* 

88 0000 

EC* 

04066 

SC* 

06350 

SE* 

10160 

SR* 

05100 

22* 

1 

2H* 

197 90 

KM* 

2000 

ID* 

7600 

LE* 

71. 0000 

NE* 

6 

BF* 

4000 

BB= 







POWER, WATTS 


HEAT REQUIREMENT, WATTS 


BASIC 

17336 136? 

BASIC 

29987 6992 

WATER F L 

136 4096 

REHEAT 

646 2640 

PEGEN F L 

339 8261 

SHUTTLE 

1881 3140 

COOLER F L 

139 5549 

PUMPING 

66 8533 

NET 

16720 345? 

TEMP SWING 

1245 6926 

MECH FRIC 

1672 0249 

CONDUCTION 

19? 9066 

BPAf-E 

150-r8 3125 

FLOW FRIC CREDIT 

-306 3230 




77*74 O 700 A 



ntfll tv trw’.rc 


INDICATED EFF M* 

49 5867 

FURNACE LOSS 

8429 8496 

OVERALL EFF *> 

35 7024 

FL€L INPUT 

42149 2422 


HOI HLTAl TEMP M 9222222 COOLING WATER 1NCET TEMP , K* 3305555 

EPFEC HOT SP TEW k« 83b 1503 EFFEC COLD SP TEMP K « 352 507? 


lbl 


Table B.l (continued) 


Input and Output Printouts 


ISOTHERMAL SECOND ORDER CALCULATION- 
PROG. ISO 
89 APR 1988 

WRITTEN BY WILLIAM R. MARTINI 


CURRENT OPERATING CONDITIONS ARE: 


SP= 

1000.00 

PS= 

1000.00 

ND= 

30.00 

TF* 

1200.00 

Ll= 

ft 

o. ww 

TY= 

135.0000 

FX* 

25. 0000 

0G= 

1 

CURRENT DIMENSIONS ARE: 





DC= 

10. 1600 

DR= 

3.5000 

IC= 

. 1150 

0C= 

. 1670 

DW= 

. 00432 

DD= 

4.0600 

IH= 

. 4720 

0H= 

. 6408 

G= 

. 84060 

LB= 

6.4800 

LR= 

c. JtW 

CR= 

13.6500 

RC- 

2.3250 

LC= 

12.9000 

LD= 

12. 8200 

LH= 

41. 8080 

LI= 

25.5800 

NC- 

312 

NR= 

6 

N= 

4 

NH= 

36 

FF- 

.2800 

AL= 

90. 80 

CX= 

254. 2884 

ME= 

vvW 

FC a 

86.0008 

EC= 

. 04060 

SC= 

. 06350 

SE= 

. 10160 


. 85100 

Z2= 

\ 

2H= 

201. 67 

KM= 

. 2000 

1D= 

. 7&3 

LE= 

71. 0080 

NE= 

6 

BF= 

4000 

BS= 






POWER, WATTS 



HERT REQUIREMENT, WATTS 


BASIC 

HEATER F. L. 
REGEN. F. L. 
COOLER F. L. 
NET 

MECH. FRIC. 
BRAKE 


3^>54. 0937 
251. 3977 
484. 0062 
256. 2751 
33962. 4180 
3396. 2422 
30566. 1758 


INDICATED EFF. Ji= 49. 6997 
OVERALL EFF. 35. 7838 


BASIC 60184. 
REHEAT 1364. 
SHUTTLE 1917. 
PUMPING 203. 
TEMP. SWING 5037. 
CONDUCTION 201. 
FLOW FRIC. CREDIT -493 
HEAT TO ENGINE 68335. 
FURNACE LOSS 17083. 
FUEL INPUT 85419. 


5156 

5796 

1147 

1112 

6309 

6665 

■3098 

2187 

8047 

0078 


HOT METl 
EFFEC. 


Cffjf. 


TEMP. K= 922.2222 
SP. TEMP. K= 845.7885 


COOLING WATER INLET TEMP , K= 330. 5555 
EFFEC. COLD SP. TEMP. K. = 354. 2686 
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Table B.l (continued) 


Inputs and Output Printouts 


ISOTHCR’fRL SECOND ORDER CALCULATION— 
PROG. ISO 

aq opt iqoft 

WRITTEN BY WILLIAM R. MARTINI 
CURRENT OPERATING CONDITIONS ARE: 


SP* 

1000 08 

PS* 1400 00 

ND= 

30 00 

TF= 1200. 08 

Li* 

0 0000 

TY= 135 O000 

FX= 

25. 0000 

0G- 1 


CURRENT DIMENSIONS ARE: 





DC* 

10 iaT0 

DR= 

3 5000 

IC= 

1150 

DC* 

1670 

DW= 

00432 

DD* 

4 0600 

IH= 

4720 

OH* 

6400 

G= 

04060 

LB= 

6. 4000 

LR= 

2 5000 

CR* 

13 6500 

RC= 

2. 3258 

LC= 

12. 9000 

LD* 

12 0200 

LH= 

41 8000 

L 1= 

25 5S0O 

NC* 

312 

NR* 

6 

N= 

4 

NH= 

36 

FF = 

■ iwv 

AL= 

90. 08 

CX= 

254 2804 

ME* 

90 0000 

FE= 

80 0000 

EC- 

04060 

sc= 

. 06350 

SE= 

10160 

SR= 

05100 


1 

2H= 

197 29 

KM= 

20Ot 

ID* 

7600 

LE= 

71 0000 

NE- 

6 

BF= 

4000 

BB* 







POWER, WATTS HEAT REQUIREMENT, WATTS 


BASIC 

47958 7508 

BASIC 

83615. 6894 

HEATER F. L. 

345. 9294 

REHEAT 

1920. 1501 

REGEN F L 

607 2909 

SHUTTLE 

1875. 4663 

COOLER F. L 

350. 3559 

PUMPING 

343. 8532 

NET 

46655. 1758 

TEMP SWING 

9749 3984 

MECH. FRIC 

4665. 5186 

CONDUCTION 

197. 2854 

BRAKE 

41989 6602 

FLOW FRIC CREDIT 

-649 5749 



ucflT tn rwr. fwr 

97052 1875 



ntn\ IU triuirvc 

INDICATED EFF 5£ 

= 48 0723 

FURNACE LOSS 

24263. 0469 

OVERALL EFF X* 

34 6120 

FUEL INPUT 

121315. 2187 

HOT METAL TEMP 

K* 922. 2222 

COOLING WATER INLET TEMP , K= 330 

EFFEC HOT SP. TEMP K= 838. 6689 

EFFEC COLD SP. TEMP. K. * 

358. 1397 
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Table B.l (continued) 


Input and Output Printouts 


ISOTHERMAL SECOND ORDER CALCULATION-- 
PROG. ISO 
09 APR 1988 

WRITTEN BV WILLIAM R. HARTINI 


CURRENT OPERATING CONDITIONS ARE: 


SP= 

2900.00 

PS* 

200. 00 

ND= 

30. 00 

TF= 1200. 00 

Ll= 

O. vwv 

TV* 

135 0000 

FX= 

25.0000 

OG= 1 

CURRENT DIMENSIONS ARE: 




DC* 

10. 1600 

DR* 

3. 5080 

IC= 

1150 

OC= . 1670 

DW= 

. 00432 

DD= 

4.0600 

IH= 

.4720 

OH* .6400 

G= 

04060 

LB* 

6. 4008 

LR* 

2. 5080 

CR* 13. 6500 

RC= 

2.2250 

LC* 

12. 9000 

LD= 

12.0200 

LH= 41. 8800 

LI* 

25. 5800 

NC= 

312 

NR* 

6 

N= 4 

NH= 

36 

FF* 

2900 

AL* 

90. 00 

CX= 254. 2804 

ME* 

90. 0000 

FE= 

80 8800 

EC* 

04060 

SC* 06350 

SE= 

. 10160 

SR= 

. 05100 

22= 

1 

ZH= 191. 16 

KM= 

. 2000 

ID* 

. 7600 

LE= 

71.0000 

<£> 

IJ 

$ 

BF= 

4000 

88= 





POWER 

WATTS 



HEAT REQUIREMENT, WATTS 


BASIC 

HEATER F. L. 
REGEN F L. 
COOLER F L 
NET 

MECH. FRIC. 
BRAKE 


11460. 6621 
451. 8111 
1244 0168 
458 8881 
11306 7461 
1130. 6748 
10176. 8713 


INDICATED EFF X* 
OVERALL EFF. X* 


44. 1059 
31. 7563 


BASIC 23766 1660 
REHEAT 498. 5541 
SHUTTLE 1817 2532 
PUMPING 46. 2341 
TEMP. SWING 389. 9685 
CONDUCTION 191. 1619 
FLOW FRIC. CREDIT -1073 0195 
HEAT TO ENGINE 25635 4168 
FURNACE LOSS 6488 8535 
FUEL INPUT 32044 2656 


HOT METAL TEMP. K= 922. 2222 COOLING WATER INLET TEMP > K= 330. 5555 

EFFEC HOT SP. TEMP K= 824 1782 EFFEC COLD SP TEMP K. = 357 3217 


164 



Table B.l (continued) 


Input and Output Frintcuta 


ISOTHERMAL SECOND ORDER CALCINATION — 
PROG. ISO 
09 APR 1980 

WRITTEN BV WILLIAM R. MARTINI 


CURRENT OPERATING CONDITIONS ARE: 


SP* 

2000. 00 

PS= 500.00 

Ll= 

0 0000 

TY= 135 0000 


CURRENT DIMENSIONS ARE: 

DC* 

10 1600 

DR= 

3 5000 

DW= 

00432 

DD= 

4 0600 

G= 

04060 

LB= 

6 4000 

RC= 

2 3250 

LC= 

12. 9000 

LI* 

25 5808 

NC= 

312 

nh= : 


FF= 

2000 

ME= 

90 0000 

FE= 

80. 0000 

SE= 

1016O 

SR= 

. 05100 

KM= 

2000 

ID= 

7600 

BF= 

4000 

BB= 


POWER, 

WATTS 




ND= 

38. 00 

TF= 1200. 80 

FX= 

25. 0000 

0G= 1 


IC* 

. 1158 

0C= 

. 1670 

IH= 

. 4720 

0H= 

6480 

LR= 

2. 5000 

CR= 

13 6500 

LD= 

12 0200 

LH= 

41 8800 

NR= 

6 

N= 

4 

AL= 

90. 00 

CX= 

254 2804 

EC= 

04068 

5C= 

06350 

zz= 

1 

2H= 

203. 62 

LE= 

71 0000 

NE= 

6 


HEAT REQUIREMENT, WATTS 


BASIC 

25202. 6016 

BASIC 

60231. 9844 

HEATER F L 

997 9139 

REHEAT 

1272. 7683 

REGEN F L 

1922. 2396 

SHUTTLE 

1925. 7202 

COOLER F L 

1019 1125 

PUMPING 

202. 8463 

NET 

31262 2383 

TEMP SWING 

2532. 4609 

MECH FRIC 

2126 2244 

CONDUCTION 

283 6237 

BRAKE 

28136 0156 

FLOW FRIC CREDIT 

-1959. 5837 

— 


- HEAT TO ENGINE 

64521 8202 

ID I GATED EFF *i= 

48 4522 

FURNACE LOSS 

16130. 4551 

'ERALL EFF, X* 

34 8856 

FUEL INPUT 

80652 2734 


HOT METAL TEMP K= 922 2222 COOLING WATER INLET TEMP. , K* 530. 5555 

EFFEC HOT SP TEHF K= 849 8565 EFFZC COLD SP TEMP K. = 353 4494 
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Table B.l (continued) 


Input and Output Printouts 


ISOTHERMAL SECOND ORDER CALCULATION— 
PROG. ISO 
09 APR 1988 

WRITTEN BV WILLIAM R. MARTINI 


CURRENT OPERATING CONDITIONS ARE: 


SP= 

2000.00 

PS= 

1000.00 

HD- 

30 00 

TF- 

1200 00 

Li- 

0. 0000 

TV- 

135.0080 

FX- 

25 0000 

OG- 

1 

CURRENT DIMENSIONS ARE. 





DC- 

10. 1609 

DR= 

3 5080 

IC- 

. 1158 

OC- 

. 1670 

DW- 

. 00432 

DD= 

4. 0688 

IH- 

4720 

OH- 

6400 

G= 

04060 

LB= 

6 4000 

LR- 

2. 5800 

CR- 

13 6500 

RC= 

2 3258 

LC= 

12. 9000 

LD- 

12. 8200 

LH= 

41. 8080 

LI = 

25. 5808 

NC= 

312 

NR- 

6 

N= 

4 

NH- 

i6 

FF= 

. 2000 

AL- 

90. 00 

CX- 

254 2804 

ME- 

90. 0000 

FE= 

88. 0000 

EC- 

. 04069 

SC- 

. 06350 

SE- 

10160 

SR- 

05100 

Z2- 

1 

ZH- 

194. 83 

KM- 

. 2000 

ID- 

. 7600 

LE- 

71 0000 

NE= 

6 

BF= 

4000 

BB- 






POWER, WATTS 



HEAT REQUIREMENT, 1 

WATTS 


BASIC 

HEATER F. L. 
REGEN. F. L 
COOLER F. L. 
NET 

MECH. FRIC. 
BRAKE 


67612 1016 
1927. 4856 
3147. 8110 
1946 4116 
60590. 3984 
6959. 8410 
54531. 3594 


INDICATED EFF. 46. 3460 
OVERALL EFF. Ji= 33. 3691 


BASIC 118928. 5312 
REHEAT 2778 0645 
SHUTTLE 1852. 1472 
PUMPING 602 3567 
TEMP. SWING 9880 2656 
CONDUCTION 194 8324 
FLOW FRIC. CREDIT -3581. 3911 
HEAT TO ENGINE 130734. 7969 
FURNACE LOSS 32683 6992 
FUEL INPUT 163418. 4844 


HOT METAL TEMP. K= 922. 2222 COOLING WATER INLET TEMP , K= 338 555 

EFFEC HOT SP. TEMP. K= 836. 6948 EFFEC. COLD SP TEMP. K. - 360. 9674 
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Table B.l (continued) 


Input and Output Printouts 


ISOTHERMAL SECOND ORDER CALCULATION- 
PROG. ISO 
OS APR 1980 

WRITTEN BY WILLIAM R. MARTINI 


CURRENT OPERATING CONDITIONS ARE: 


SP= 

2080 00 

PS= 1400. 80 

ND= 

38 80 

TF= 1200 08 

Ll= 

0 00*30 

TV- 125. 0008 

FX= 

25. 0000 

0G= 1 


CURRENT DIMENSIONS 1 

FIRE: 





DC= 

10 1600 

DR= 

3. 5008 

IC= 

1158 

0C= 

1678 

DW= 

00422 

DD= 

4 0600 

IH= 

. 4728 

0H= 

6480 

6= 

0406O 

LB= 

6 4000 

LR= 

2. 5000 

CR= 

13 6500 

RC= 

2 2258 

tl 

U 

—1 

12. 9800 

LD= 

12. 0280 

LH= 

41 8000 

L I = 

25 5880 

NC = 

212 

NR= 

6 

N= 

4 

NH= 

26 

FF= 

2008 

AL= 

90. 00 

CX= 

254. 2804 

ME= 

90 0000 

FE= 

88. 0000 

EC= 

04068 

SC= 

. 86350 

SE= 

10160 

SR= 

85100 

~?~ 7 — 

1 

ZH= 

188. 94 

KM= 

2000 

ID= 

7600 

LE= 

71. 0800 

NE= 

6 


BF= 4000 


POWER, WATTS 
BASIC 

HEATER F L 
REGEN. F. L 
COOLER F L 
NET 

MECH FRIC 
BRAKE 


INDICATED EFF '/.* 
OVERALL EFF 4 = 


91861 8906 
2651 8186 
4117 

2677 


2451 

4727 


82415. 3594 


8241 

74173 


5371 

8281 


44 2429 
21. 8549 


HEAT REQUIREMENT, WATTS 
BASIC 164954. 7812 

REHEAT 3992 2964 

SHUTTLE 1796. 1570 

PUMPING 1811. 6228 

TEMP SWING 19046. 0352 

CONDUCTION 188. 9427 

FLOW FRIC. CREDIT -4710 4489 

HEAT TO ENGINE 186279 2906 

FURNACE LOSS 46569. 8437 

FUEL INPUT 232849 2187 


HOT METAL TEMP K= 922. 2222 COOLING WATER INLET TEMP. , K= 338. 5555 

EFFEC HUT SP TEMP K= 828 4016 EFFEC COLD SP TEMP K. = 366. 9746 
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The first step was to plot the minimum flow loss versus the speed squared. 

This plot is shown in Figure B.2. This relationship is linear and was easily 
fitted. This relationship allowed prediction of flow loss at relatively 
high pressures. The final step was to develop the correlation that would 
allow predictions at relati’-ely low pressures. The change in the torque 
ratio "between the highest value (high pressure) and the values at other 
pressures is shown in Figure B.3. In one attempt to "bring the curves 
together, it was decided to divide the change by the speed. An average of 
these curves was fitted with a power curve. The curves are shown in Figure 
B.4. Taking into account both effects, tne final equation was* 

TQN = TQI * (.99662 - 9-14 x 10' 5 (SP) 2 ) (1 - 3.09 x 10‘ 3 (SP) (MPa) ~ 1,841 ) 

where TQM is net torque, TQI is indicated torque, SP is engine speed in 
Hertz, and MPa is engine pressure in MPa. 

Validation of this equation consisted in using it to calculate e torque 
ratio for the 16 cases previously calculated. 

The predictions were compared with the calculated results and plotted in 
Figure B.5. The error band fits were within the error expected from the 
actual fluid mechanic calculations. This method of estimating flow loss is 
reasonably accurate and saves computer time and space. 


UJ 



Figure B.2. Minimum Flow Loss Versus Speed Squared. 


0 
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CHANGE FROM MAX. TORQUE RATIO * 1000 / HZ 8 CHANGE FROM MAXIMUM TORQUE RATIO 




Figure B.5. Predictions Versus Actual Calculations. 
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APPENDIX C 


GRAPHIC SUBROUTINES 


The graphic subroutines listed and explained in this appendix were left out 
of the listing of CNTLB.FOR because they had already been included in the 
library for the Altos computer at Martini Engineering. Other computers will 
probably have different graphic packages, so an explanation of what each 
subroutine does is included. The subroutines are VECTOR, POINT and CLEAR. 
Also, an explanation of the subroutine ERASE given on lines 888 to 922 of 
CNTLB (see page 104) will be given. All of these use a machine language 
subroutine CONOUT. (See Table C,1 for a listing of CONOUT. ) The Retro- 
graphics* modification to the Lear-Slegler ADM -3A terminal employs certain 
control codes to get between the different modes. This control chart is 
shown in Figure C.l. CONOUT is used to give the computer the signal in 

Table C.l 

MACHINE LANGUAGE LISTING OF CONOUT 


1 

ENTRY 

CONOUT 


CONOUT : 



MV I 

R, 1CH 

4 

OUT 

1DH 

5 

IN 

1DH 

£ 

ONI 

000011000 

1 

CPI 

000011006 


JN 2 

CONOUT 


MOV 

Fb M 

10 

OUT 

1CH 

n 

RET 


12 

END 




Figure C.l. Retrographics Control Scheme. 

^Product of Digital Engineering Inc., 1?*7-K Tribute Rd., Sacramento, CA 95X15. 


the proper form to he recognized. Table C.2 shows the code that is used. 
The subroutines will now be explained. 


Table C.2 
CONTROL CODES 


ASCII 

Code 

Name 

Name in 
Subroutine 

ASCII Decimal 
Number 

Function 

CAN 

CA 

24 

Move from 4010 alpha 
to ADM-3A alpha. 

EM 

UY 

25 

Clear screen. 

FS 

FS 

28 

Move to point mode. 

GS 

GS 

29 

Move to vector mode. 

US 

US 

31 

Move from vector mode 
to 4010 alpha. 

ESC 

ES 

27 , 

Sets data level to 

DEL 

DE 

127 j 

black 

a 

AA 

97 

With ES sets data 
level to white. 


VECTOR 

The subroutine VECTOR draws a straight line. It is listed in Table C.3. It 
has four arguments. They axe defined as follows* 

JX = X axis coordinate of start of vector. 

JY = Y axis coordinate of start of vector. 

KX = X axis coordinate of end of vector. 

KY = Y axis coordinate of end of vector. 

As for any subroutine, the position is important and the names can be changed. 
These coordinates are integers. The main program scales the values to be 
plotted so that the X axis coordinate is between 0 and 1023 and the Y axis 
coordinate is between 0 and 779* (See Figure C.2.) 

In line 757 of Table C.3 the integers are defined. In line 75$ the values 
needed from Table C.2 are defined. In line 759 the control code GS is sent 
to go from the AIM-3A alpha mode to the vector mode (see Figure C.l). In 
lines 760 rod ?6l the Y coordinate of the start of the vector is split into 
its upper and lower components according to directions. In lines 762 and 
?63 he same thing is done for the X coordinate of the start of the vector. 

In I'.nes 764 to 767 these four numbers are entered. Lines 768-770 cause a 
slight delay in the program to allow the entering to be complete. 

From lines 771 to 780 the same thing is done for the end coordinate of the 
vector. Once the computer has both coordinates, it draws a straight line 
between them. The timing loop (lines 779 to 781) is needed to allow the 
computer to draw the line before it goes on to something else. The time 
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Table C.3 


755: 

C SUBROUTINE FOR DRAWING A VECTOR ON TI 

756: 


SUBROUTINE VECTORUX. JY, KX. KV) 

757: 


INTEGERS GS.US.SUSt.XN.NL.CA 

753: 


DATA GS.US.CA/29.21.24/ 

759: 


CALL CONOUT(GS) 

760: 


VH*JY/22+22 

761- 


Sl=M0D(JV,22>+?6 

762: 


XH*JX/22+22 

763: 


XL*MOD(JX. 32) >64 

764: 


CALL COfiOUTCS’H) 

765: 


CALL CONOUT(VL) 

766: 


CALL CONOUT(XH) 

767: 


CALL CONOUT <M> 

763 : 


DO 10 1*1.200 

769: 


H=I+i 

770: 

10 

CONTI WE 

771: 


VH=KS'/32+22 

. 

Mi.. 


S1=H0D(KV, 32 >+96 

77 : \ 


:‘H--D722+22 

r.4: 


XL*M0D<KX. 32) +64 

■ 

> * U • 


CALL CONOUT (YH> 

776: 


CALL CONOUT(YL) 

777 : 


CALL CONOUT <XH) 

778: 


CALL CONOUT Cl) 

779: 


DO 20 1*1.200 

780 : 


11=1+1 

781: 

20 

CONTINUE 

732 : 


CALL CONOUT (US) 

783 : 


CALL CONOUT (CA> 

704: 


RETURN 

735: 


END 



Figure C.2. Coordinate Numbering for Graphics. 
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delay used here works for even the longest line. 

Lines 782 and 783 get control back to the ADM -3* alpha mode by going through 
the 4010 alpha mode. (See Figure C.l and Table C.2.) 


POINT 

The subroutine POINT puts a point on the screen. It is listed on Table C.4. 
It has two arguments i 

JP * X axis of point 
JQ * Y axis of point 


Table C .4 

C SUBROUTINE FOR POINT GRAPHICS 
SUBROUTINE POINT<JP,JQ> 

Ih7EGER*l FS, US. Cft, VH. YL. XH. XL. UV 
DATA FS. US. Cfi, UV/23. 31# 24. 25/ 

CALL CONOUT(FS) 

VH=JC!/32*22 

JO.- ?2>*?s 
XH=JP/22*32~ 

XL*H0D<JP,32>*64 
CALL CONOUT(YH) 

CALL CONOUTOrL/ 

CALL CONOUT(XH) 

CALL CONOUT(M) 

CaL CONOUTCUS) 

CaL CONOUT(CA) 

RETURN 
EM- 

As for any subroutine the positions of the arguments are important and the 
names can be changed. These coordinates are integers scaled as shown in 
Figure C.2. In lines 729 and 730 of Table G .4 the integers and the data 
are defined. In line 731 the control code FS is sent to get control into 
the point mode. (See Figure C.l.) In lines 732 to 739 the upper and lo' r 
component of each coordinate is calculated and sent in the proper order . 

A point corresponding to this coordinate lights up on the screen. Lines 
740 and 741 return control to the AEM-3A alpha mode via the 4010 alpha mode 
(see Figure C.l). 

CLEAR 

The subroutine CLEAR erases the entire graphic screen without touching the 
ADM-3A alpha screen which is superimposed. CLEAR has no arguments. A 
listing is shown in Table C.5* In Table C.5# lines 746 and 7'4? initialize 
as usual. In line 748 the control code GS is sent to get the control into 
the vector mode. In this mode sending the control code EM (UY in our sub- 
routine) (see Table C.2) clears all the screen. Lines 750 and 751 get con- 
trol back to AUH-3A alpha mode In the usual way. 


728 

723 

720 

731 


724 

725 

726 

727 
723 
729 

740 

741 

742 
742 
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Table C.5 


744: C SUBROUTINE FOR CLEARING VECTOR MODE SCREEN 

74 5: SUBROUTINE CLEAR 

7-15: INTEGER*! GS,UY,US,CA 

747 : DATA GS, UV, US, CA/29, 25, 21, 24/ 

743; CRLL CONOUT(GS) 

749; CRLL CONOUT(UV) 

750 ; CALL CONQUT<U$> 

751 : CALL CONOUT(CA) 

752: RETURN 

751; END 

754 ; C 


ERASE 

The subroutine ERASE draws a series of black lines from X coordinate ?10 
to 1013. The black lines are drawn in the Y direction from 2 to 777 . On 
page 104 lines 889 and 890 initialize things. Line 891 starts the do loop. 
Line 892 gets control to the vector mode. Lines 893 and 894 together set 
the data level to black ftrom white. Lines 895 to 91^ draw a black line. 
Lines 915 and 916 set the data level back to white. Lines 917 and 918 
get back to the AEM-3A alpha mode. Line 919 is the end of the do loop. 

An attempt was made to shorten this subroutine by putting the do loop in 
the vector mode part of the program, but this did not work. The subroutine 
requires 6 seconds to clear this part of the screen. More efficient sub- 
routines for clearing part of the screen can probably be worked out, but 
this subroutine was not a vital part in the total computing time. 

Graphic output greatly speeds the comprehension of the computed results. 

It should always be used if available for this type of analysis. 
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